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STRUMENTI MUSICALI 


In questo numero: 

Gibson Flying "V" 

Pianoforti usati 
Pickup per basso elettrico 
Programmare il DX7 con lo Spectrum 
GLOSSARIO D'INFORMATICA 
MUSICALE - 5° fascicolo 


VIDEOGIOCHI In questo numero: 

Speciale due anni dopo: 
cosa ci riserva il 1985? 
Tuttolucky 

Provati in anteprima: 
Ghostbusters e The Biz 



Strumenti Musicali/Video Giochi/Home Computer 

sono pubblicazioni firmate : 

GRUPPO EDITORIALE JACKSON 

via Rosellini, 12-20124 Milano 



Guida per l’input dei programmi versioni VIC IO e €04 


Notate che I listati contengono “parole" rac¬ 
chiuse tra parentesi graffe { }. Tali parole 
rappresentano caratteri di controllo come 
mostrato nel sottostante riquadro. Se sono 
precedute da un numero, questo indica il nu¬ 
mero di volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato deve essre 
premuto contemporaneamente a SHIFT 
mentre se è racchiuso da [( )] deve essere 


premuto contemporaneamente al tasto 
COMMODORE. Inoltre, se tra parentesi si 
trova un carattere alfabetico “solitario", 
questo dovrà essere premuto contempora¬ 
neamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto 
più agevole copiare i listati senza faticose e e 
dubbie interpretazioni di caratteri grafici e di 
controllo del cursore o dei colori. 
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Il cacciatore 



Le oche selvatiche stanno migrando al sud, e 
il cacciatore si è appostato nella radura con 
la speranza di tornare a casa col carniere pie¬ 
no. Le sue munizioni consistono in 100 cartuc¬ 


10 GOTO 1000 

15 FORX =OTOFR:D(X)=EI-X+SGN(O-TW 
*INT(RND(1)*TW)):P=7680+H(X)* 
22+G(X)-O:POKER,32 
20 POKEP+1 ,32 :FORZ=OTOFR:F = -F:P= 
7680+D (X)*22+G(X) :POKEP,32:PO 
KEP+1,24+F:POKEP+2,24 
22 NEXT 

30 GE'1’A$ : IFA$=" {F7} "THEN35 
33 IFA$OCHR$ ( 36) THKN75 
35 FOKY=OTOW:POKE3637 7,21 0:FORD = 
ITOI2 :NEXTD:POKE368 77,2 20 :FOR 
D =1TO12 :NEXTD:POKE36877,0 
40 POKE807 8,27 :POKE38798,5 :NEXT: 

POKE807 8,32 :SH=SH+0 
50 PRINT"{HOME}{RVS}{WHT} 

{ 6 DES}"SH:IFG(X)=EVORG(X)=T 
VTHEN55 
53 GOTO75 

55 B=B+0:P=7680+D(X)*22+G(X):FOR 
C = 0l'O3 : POKEP+C , 32 : NEXT 
60 PRINT"{HOME}{RVS}{ 18 DES}"B: 
G (X) =0-TW: H (X) =0 : FORY=D (X) TON 
ISTEPTW:P=7680 +(Y-TW)*22+FO 
62 POKEP,32 

65 P=7680+(Y-O)* 2 2 + FO:POKEP,32 :P 
=7680+Y*22+FO:POKEP,28 :P=7680 
+(Y+O)*22+FO:POKEP,29 
67 NEXT 

70 P=7680+(NI-O)*22+FO:P2=7680+N 
I * 2 2 +FO:P 3 = 7 6 8 0 +(NI+O)*22+FO: 
POKEP,32:POKEP2,32 
72 POKEP3,32 

75 H (X) =D (X) : G (X) =G (X) +TW: IFG ( X) 
>TNTHENP=7680+H(X)*22+G(X)-O: 
POKEP,32:POKEP+l,32 
77 IFG(X)>TNTHENG(X)=0 
80 NEXT:IFSH>99THEN300 
85 GOTOl5 

100 FORX=1T04:H(X)=1:G(X)=X*5-4: 
NEXT 

110 PRINT"{CLR}{WHTjCOLPI: 

{ 6 DES}PUNTI:" 

120 PRINT" { 2 GIU'HYEL) 

{ 2 DES}USA {CYN}F7{YEL} PER 
SPARARE" 


ce, ma molte andranno sprecate: non è facile 
colpire gli uccelli durante il volo! Mettiti nei suoi 
panni, usando il tasto F7 per sparare, e... buo¬ 
na caccia! 


130 PRINT"{ 10 GIU 1 }{ 15 DES} 

{GRHj[[[{ 4 SIN}{GIU'}[[[[[ 

A 6 SIN}{GIU’5 l ( [ [ { [ l 
{ 7 SIN}{GIU 1 }[[[[[( ["; 

140 PRINT"{ 7 SIN}{GIU'}[[ {RED} 
Z{GRN} [[{ 7 SIN}{GIU 1 } 

{ 3 DES}{RED}Z{SIN} [GIU'}Z" 
150 PRINT"{GRN}{ 2 SU}{DES}t 
{SIN}{GIU 1 }-" 

160 FORA=0TO6:POKE8142+A,33:POKK 
8157 + A.33:POKE8164 + A,33 :POKE 
8179+A,33 

170 POKE3 8 8 62+A,5 :POKE3 8877+A,5 : 
POKE3 88 84+A,5 :POKE38899 + A,5: 
NEXT 

180 FORA=8171T08178:POKEA,26 :POK 
EA+ 30720,3:NEXT 
190 PRINT"{HOME}{ 6 GIU'}{YEL} 

{ 3 DES}PREMI {CYN}RETURN 
{YEL} PER" 

195 PRINT"{GIU'}{ 7 DES}GIOCARE 
{GRN}" 

200 GETA$ : IFA$OCHR$ (1 3JTHEN200 
210 PRINT"{HOME}{ 3 GIU'} 

{ 2 DES}{ 18 SPAZI}{HOME} 

{ 6 GIU'}{ 3 DES} 

{ 16 SPAZI}{HOME}{ 8 GIU'} 

{ 7 DES}{ 7 SPAZI}" 

215 F0RC = 38422TO3859 7:POKEC,1 : NE 
XT 

220 GOTOl5 

300 IFB>TTTHENTT=B 

310 PRINT"{HOME}{ 6 GIU'} 

{ 6 DES}{YEL}FINE GIOCO{WHT} 
{ 16 SIN}{ 2 GIU'}PUNTI:"B"S 
U 100 COLPI" 

315 PRINT"{ 6 DES}RECORD :"TT 
320 PRINT"{YEL}{ 2 GIU'JPREMI 

{CYN}Fi{YEL} PER RIGIOCARE" 
325 GETA$: IFA$ = ""ORA$ = "{F7}"THEN 
325 

327 IFA? = "{Fi}"THENSH=0:B=0: GOTO 
100 

328 POKE900,0 :SYS900 
330 SH=0:B=0:GOTOl00 

900 POKE36879,ll1:PRINT"{CLR}" 
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910 DIMD(4) ,G ( 4),H(4) 

920 TT=0:SH=0:TV=10:EV=9:NI=20:F 
0=11:EI=8 

930 F=-l:0=1:TW=2:FR=4:TN=20:POK 
E36878,15 
940 GOTO!00 

1000 POKE55,0:POKE56,28:CLR 
1010 FORJ = 0TO63:J1=J * 8 :FORK=0TO7 
:POKEJl+K+7168 r PEEK(Jl+K+32 
768):NEXT:NEXT 

1020 F0RJ = 23T033:Jl=J*8 :FORK=OTO 
7 :READX:POKEJ1+K+716 8,X:NEX 
T:NEXT 

1030 POKE36869,255:POKE36866,150 


1050 GOTO900 

1100 DATA2,6,7,7,127,31,8,0,0,0, 
48,104,254,192,0,0,0,0,0,0, 
127,31,15,3 

1110 DATA85,170,85,170,85,170,85 
,1 70,66,1 6,1 32,33,4,81 , 4,1 6 
0 

1120 DATA0,16,18,54,118,62,60,60 
,48,56,28,20,24,16,16,0 

1130 DATAI,98,244,232,88,232,248 
,224,224,224,144,144,144,14 
4,144,216 

1140 DATA0,0,0,0,0,0,0,0,255,255 
,255,255,255,255,255,255 


Difesa 



3K PAM 


Per l'ennesima volta la Terra si trova sotto l'at¬ 
tacco delle orde aliene, e come al solito il de¬ 
stino dell'umanità è nelle tue mani. 

Questa volta gli aggressori cercano di cattura¬ 
re esseri umani per sottoporli a perversi espe¬ 
rimenti di genetica. Alla guida del tuo aereo, 
armato di un potente cannone laser, devi di- 
struggre le navi aliene (anch'esse armate), le 
quali cercano di posarsi sulle colline per rapire 
gli uomini che, ignari del pericolo che corrono, 
sono saliti lassù per osservare lo spettacolo. 
Ogni nemico abbattuto ti fa guadagnare IO 


4 POKE52,28:POKE56,28:POKE657,12 
8:POKE650,127 

5 HL=10 :DEFFNP(Y)=PEEK(7680+22*Y 
+XX):LI=3:HS=0 

6 POKE36878,1 5:POKE36879,8 :PRINT 
"{CLR}{WHT}":GOSUB3000 

10 RESTORE :GOSUB2000:GOSUBl000 

15 GOSUBl170:D=1:N=195:GOSUBl200 
0 

16 PRINT"{HOME}{ 21 GIU 1 ) 

{ 16 DES}{RVS}AE:"LI" {HOME}" 

19 YY=21:XX=0:GOSUBl 0000 :PRINT" 

{RVS)CARB:"MID$("{< 10 +>]",! 
,10-HL)SPRINT"{HOME}{ 7 DES} 
{RVS}RE:"HS 

20 YY=B:XX=A:G0SUB10000:PRINT"( 
{GIU 1 }{SIN}"A$ 


punti. Puoi anche colpire una nave che trasporti 
già un prigioniero, mas solo se non si trova trop¬ 
po in alto: altrimenti l'uomo si sfracellerà al suo¬ 
lo e tu perderai 50 punti. 

Ogni tanto il computer ti teletrasporterà in una 
nuova zona, a spese del tuo carburante. Hai 
a disposizione tre aerei: il gioco termina quan- 
si essi vengono distrutti, oppure quando si esau¬ 
risce il carburante, oppure infine se gli alieni 
riescono a catturare tre persone. 

Attenzione: questo programma funziona SOL¬ 
TANTO usando l'espansione di memoria da 3K. 


21 PRINT"{HOME}{RVS}CAT:"CA;TAB( 

15)"PT:"SC 

22 IFRND(1)<.0 8ANDB< =LTTHENGOSUB 
500 

27 XX = A:YY=B:GOSUBl 0000 :PRINT" 
{GIU 1 }{SIN} " 

30 XX=A:IFFNP(B+2)=33THENA$="!": 
C=C+1:M=1:XX=A:YY=B+2:GOSUBl0 
000:PRINT" " 

37 IFM = 1THENB=B-INT(RND(1)*3) :GO 
T04 5 

40 XX=A:IFFNP(B+2)=32THENB=B+INT 
(RND(1)*2) 

42 XX=A:IFFNP(B-l)<>32THENM=1:C= 
C + l 

45 IFB<1THENB= 1 
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47 IFC=80RB>18THENPRINT"{CLR}" :G 
OSUBl000 : GOTO!6 

50 A=A-1 

55 IFA=-1THENA= 21 :M=0:XFA$ = "!"TH 
ENCA=CA+1:D=.2:N=195:GOSUBl20 
00 :N = 225:GOSUBl 2000 :A$ = " " 

56 XX=10:YY=Y:GOSUBl0000:PRINT" 

{ 2 SPAZI}":AA=PEEK(197):GETA 
A$:IFAA$=CHR$(160)THENAA$=" " 

57 Y=Y-(AA=33ANDY<LT)+(AA=17ANDY 
>1 ) 

58 IFAA$=" "THENIFB$="#$"THENB$= 
"%&":GOTO60 

59 IFAA$=" "THENB$="#$" 

60 XX = 1 0 : YY=Y : GOSUBl 0000 : PRINT" 

{YEL}"B$ 

61 IFCA=30RHL=10THEN8O0 

66 IFPEEK(653)=1THENGOSUBl00 

70 GOTO20 

100 J=Y:IFB$="%&"THENI=9 

101 IFB$="#$"THENI=12 

106 XX=I : YY=J:GOSUBl 0000 .-PRINT") 

II 

110 IFB$="#$"THENFD=9:FS=1:D=.05 
:N=236:GOSUBl 2000 :N = 195 :GOSU 
B12000:N=175:GOSUBl2000 

120 IFB$="%&"THENFD=-9:FS=-1:D=. 
05:N=236:GOSUBl2000:N=195:GO 
SUBÌ 2000:N = 175:GOSUBl 2000 

121 FORL=ITOI+FDSTEPFS:YY=J: XX=L 
:GOSUBl0000 :PRINT")":NEXT 

122 FORL=I+FDTOI3TEP-FS:YY=J:XX= 
L:GOSUBl 0000 :PRINT" ":NEXT 

1 30 IFY=BANDB$="#$"ANDA>11ANDA$ = 
"!"THEN300 

140 IFY=BANDB$="%&"ANDA<9ANDA$ = " 
!"THEN300 

1 50 IFY=BANDB$="%&"ANDA< 9THEN200 

1 60 IFY=BANDB$ = "#$"ANDA>11THEN20 
0 

170 RETURN 

200 M=0:YY=B:XX=A:GOSUBl0000:PRI 
NT":D=.03:N=179:GOSUBl200 
0:PRINT"{SIN} t";:N=147 

201 D=.03:GOSUB12000 

202 PRINT"{SIN}: N = 179:D=.03:G 
OSUBl2000:PRINT"{SIN}t";:N=1 
47:D=.03:GOSUBl2000:PRINT" 
{SIN} " 

206 SC=SC+10 

210 B=INT(RND(1)*14)+1 :A=21 

215 A$=" " 

220 RETURN 

300 YY=B:XX=A:GOSUBl 0000 :PRINT"' 

- " ;:D=.03:N=179:GOSUBl 2000 :PR 

INT"{SIN}t";:N = 147 

301 D=.03:GOSUBl2000 

302 PRINT"{SIN}'";:N=179:D=.03:G 
OSUBl2000:PRINT"{SIN}t";:N=1 
47:D=.03:GOSUBl 2000 :PRINT" 
{SIN} " 


305 F=0:FORDD=B+lTO21 

31 0 YY=DD:XX=A:GOSUBl 00 00 :PRINT" 

!";:D=.02:N=195+D*4:GOSUBl20 
00 

320 F=F+1 

325 PRINT"{SIN} " 

330 XX = A: IFFNP (DD + 1 ) O32THEN360 
350 NEXT 
355 GOTO380 

360 0=RND( 1 ) :IFO<.3ORF< = 9THEN370 

361 SC=SC-(50ANDSC>=50)-(SCANDSC 
< 50 ) 

362 XX=A:YY=DD + 1:GOSUBl0000 :PRIN 

T" :POKE368 77,2 30 :FORL = lTO 

300:NEXT:POKE36877,0 

363 PRINT"{SIN} ":G0T0372 

370 XX=A:YY=DD + 1:GOSUBl0000 :PRIN 

rpII J II 

372 M=0 

380 A$ = " ":A=21 :B=INT(RND( 1 )*14) 

+ 1 : RETURN 

500 IFA>10THENDI = -9:FS = -1 
510 IFA< = 10THENDI=9 :FS=1 
520 D=.01 :N=231 :GOSUBl 2000:FORL= 
ATOA+DISTEPFS:XX=L:YY=B:GOSU 
Bl0000:PRINT")":NEXT 
525 D=.01 :N = 236 :GOSUBl 2000 :FORL = 
A+DITOASTEP-FS:XX=L:YY=B:GOS 
UBI 0000 .-PRINT" " : NEXT 
527 IFB=YTHEN560 
540 RETURN 

560 XX=10:YY=Y:GOSUBl0000:PRINT" 

{RVS}* *":A=10 
570 F0RV=1T06 

572 XX=A+V:YY=Y+V/2:GOSUBl 1 000 :P 
RINT"{YEL}#":XX=A+V:YY=Y-V/2 
:GOSUBl 1000 :PRINT"$" 

573 YY=Y+V/2:XX=A-V 

575 GOSUBl 1 00 0 :PRINT"%":YY=Y-V/2 
:XX=A-V:GOSUBl 1000 :PRINT"&" 
590 D=.01:N = 233-V*2:GOSUBl 2000 

600 XX=A+V:YY=Y+V/2:GOSUBl 1000 :P 
RINT" ":XX=A+V:YY=Y-V/2:GOSU 
Bl1000:PRINT" " 

601 YY=Y+V/2:XX=A-V 

605 GOSUBl1000:PRINT" ":YY=Y-V/2 
:XX=A-V:GOSUBl1000:PRINT" " 
610 NEXT 
620 LI=LI-1 

630 IFLI>0THENPRINT"{CLR}":GOSUB 
1000:GOTO16 

800 FORF=lT02:RESTORE:FORA=lT08: 
READD,N:GOSUB12000 :NEXT:NEXT 

801 DATA.2,223,.2,223,1.6,231,-1 
, 223, . 1 ,231 ,.l ,223,.!,231,2, 
236 

802 POKEl98,0 

810 YY=10:XX=1:GOSUBl 0 000 :PRINT" 
{RVS}FINE DELLA MISSIONE":PR 
INT"{ 3 GIU'}{RVS}PREMI ’G’ 
PER GIOCARE" 
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815 IFSC >HSTHENHS = SC 
820 GETA$: IFA$ = "G"THENPRINT" 
{CLR}": GOTO! 0 
825 GOTO820 

1000 PRINT"{WHT}":HL=HL+1:Y=19:X 
, =0 

1010 XX=X:YY=Y:GOSUBl0000:PRINT" 

1020 B=INT((RND(1)*3)+1)-2 
1030 X=X + 1:Y=Y+B 
1040 IFX>21THENl080 
1050 IFY<17ORY>20THENX-X-l:Y=Y-B 
:GOTO1020 

1 060 XX=X:YY=Y:GOSUBl 0000 :PRINT" 
{WHT} 

1070 GOTOl020 

1080 FORX=0TOl5STEP3 

1 090 A=INT(RND(1)*6)+X 

1095 F=20 

1100 FORB=0TO21 

Ilio XX=A:IFFNP(B)=3lTHENXX=A:YY 
=B:GOSUBl0000 :PRINT"{GRN} ! " 
:B=B+2 

1120 NEXT:NEXT 

1121 FORF=l1T021:FORY=0TO21:XX=Y 
:IFFNP(F)<>32THENLT=F-1:GOT 
01 1 30 

1122 NEXT:NEXT 
1130 Y=5:C-0 
1135 B$="#$" 

1140 A=21 :B=1 
1150 A$ = " " 

1160 M=0 
1168 RETURN 
1170 SC=0:CA=0:C=0 
1182 HL=0:LI=3 
1200 RETURN 

2000 FORA=1T08:READB,C:NEXT 
2010 FORA = lTOl0 :READBG:FORB=0TO7 
:READG:POKE7168+BG*8 + B,G:NE 
XT:NEXT:POKE36869,2 55 : RETUR 
N 

2020 DATA33,28,28,8,62,8,8,20,34 

2030 DATA40,0/24,60,66,255,126,6 

6,102 

2040 DATA32,0,0,0,0,0,0,0,0 
2050 DATA35,0,0,199,204,255,255, 
3,0 

2060 DATA36,0,0,240,24,255,252,2 
24,0 

2070 DATA37,0,0,15,24,255,63,7,0 

2080 DATA38,0,0,227,^1,255,255,1 
92,0 

2090 DATA39,196,9,176,6,208,24,1 
45,100 

2100 DATA41,0,0,0,0,255,0,0,0 
2110 DATA31,255,255,255,255,255, 
255,255,255 

3000 POKE36869,240:PRINT"{CLR} 

{ 10 GIU'}{ 7 SPAZI}{WHT} 

{RVS} DIFESA " 


3005 FORF=1T02:RESTORE:FORA=1T08 
:READD,N:GOSUBl2000:NEXT:NE 
XT 

3010 FORL = lTOl00 :NEXT 

3020 PRINT"{CLRjUNA FLOTTA DI AL 
IENI{ 2 SPAZI}STA CERCANDO 
DI SUPE- RARE LE DIFESE DEL 
LA" 

3021 PRINT"TERRA. UNA ALLA VOLTA 

LE NAVI SI AVVICINANO AL S 
UOLO PER CATTURARE"; 

3022 PRINT"GLI UOMINI CHE STANNO 

SULLE COLLINE." 

3030 PRINT"{GIU' }TU DEVI IMPEDIR 
E AGLI ALIENI DI FARE FRIGI 
O-NIERI." 

3031 PRINT"POSSIEDI UN POTENTE 

{ 3 SPAZIJCANNONE LASER CON 
CUI DISTRUGGERE LE NAVI 
{ 3 SPAZI}NEMICHE." 

3032 PRINT"{ 2 GIU'}{ 3 SPAZI) 

{RVS}PREMI UN TASTO" 

3033 GETA$:IFA$=""THEN3033 

3040 PRINT"{CLR}I TUOI COMANDI S 
ONO:":PRINT"{ 2 GIU'}{RVS} 

{CYN}A{WHT}{OFF}. 

.SU" 

3041 PRINT"{GIU'}{RVS}{CYN}Z 

{WHT} {OFF}...G 

IU'" 

3042 PRINT"{GIU'}{RVS}{CYN}SPAZI 

O{WHT} {OFF}.INVERSIONE 

{GIU'}{RVS}{CYN}SHIFT{WHT} 
{OFF}.. .FUOCO" 

3043 PRINT"{ 2 GIU'}{ 3 SPAZI} 
{RVS}PREMI UN TASTO" 

3044 GETA$: IFA$ = ""THEN304 4 

3050 PRINT"{CLRjSEI SCONFITTO SE 

3 UO-MINI VENGONO CATTURAT 
IO SE I TUOI 3 AEREI" 

3051 PRINT"VENGONO DISTRUTTI." 

3052 PRINT"E' MEGLIO SPARARE ALL 
ENAVI CHE TRASPORTANO 

{ 2 SPAZI}UN PRIGIONIERO SO 
LTAN-"; 

3053 PRINT"TO SE NON SI TROVANO 

{ 2 SPAZI}TROPPO IN ALTO (A 
LTRI-MENTI L'UOMO MUORE" 

3054 PRINT"NELLA CADUTA E TU PER 
-DI 50 PUNTI)." 

3060 PRINT"OGNI TANTO IL COMPUTE 
RTI TELETRASPORTA IN 

{ 3 SPAZI}UNA NUOVA POSIZIO 
NE;" 

3061 PRINT"CIO' AVVIENE A SPESE 
{ 2 SPAZI}DI PARTE DEL TUO 
CAR- BURANTE (SE ESSO SI" 

3062 PRINT"ESAURISCE LA MISSIONE 

HA TERMINE)." 

3063 PRINT"{GIU'}{ 3 SPAZI}{RVS} 
PREMI UN TASTO" 

3064 GETA$:IFA$=""THEN3064 
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3065 Piti NT" |CU< ) AIJBREV I AZION I : " : 
PRINT") 2 GIU'JCAT “NUMERO 
DI UOMINI( 6 SPAZI}CATTURAT 
I" 

3066 PRINT"{GIU'}CARB=CARBURANTE 

II 

3067 PRINT”{GIU*}AE{ 2 SPAZl}=NU 
MERO DI AEREI{ 7 SPAZI}RIMA 
NENTI" 

3068 PRINT"{GIU'}PT{ 2 SPAZI}=PU 
NTEGGIO" 

3069 PRINT"{GIU'}RE{ 2 SPAZI}=RE 
CORD" 


3070 PRINT"{ 1 GIU' I (RVS)PltEMI 
G' PER GIOCARE" 

3071 GETA$: IFA$<>"G"THKN307 1 
3080 POKE36869,255:PRINT"(CLR)": 

RETURN 

10000 PRINT"{HOME}"LEFT$(" 

{ 22 GIU'}",YY)LEFT$(" 

{ 22 DES}",XX); 

10010 RETURN 

11000 XX=ABS(XX):YY=ABS(YY):GOSU 
Bl 00 00 : RETURN 

1 2000 POKE3687 5 , N : FORL=1 TOD* 500 : 
NEXT:POKE36875,0:RETURN 


Battaglia navale 



Se/ il comandante di una forza navale d'assal¬ 
to che ha ingaggiato una dura battaglia con¬ 
tro la flotta nemica. L'azione si svolge in mare 
aperto e nel cuore della notte: solo i lampi dei 
tuoi cannoni illuminano a tratti la zona, per¬ 
mettendoti di scorgere per un attimo le navi 
nemiche e di localizzarle. 

Questo programma è un'appassionante versio¬ 
ne per il VIC 20 del vecchio gioco della Batta¬ 
glia Navale. Al contrario di quanto avviene nel 
gioco tradizionale, però qui il cannoneggiamen¬ 
to è a senso unico: sei solo tu che spari, e con 
50 proiettili a disposizione devi cercare di dan¬ 
neggiare il più possibile la flotta del computer, 
nascosta in un'area che misura 20x20. 

Nel corso del gioco devi introdurre le coordi¬ 
nate X e Y, che devono essere numeri a due 
cifre compresi tra 01 e 20. L’area della batta¬ 
glia, che normalmente è nera, diviene rossa per 
un attimo durante lo sparo mostrando così la 
flotta del computer. Subito dopo appare un 


10 DI=30720:SH=50:BA$ = "{CLR} 

{RED}{ 2 SPAZI}{RVS} BATTAGLI 
A NAVALE {BLU}{ 2 GIU'}":PRIN 
TBA$:S=36877:V=36878:C=36879 
35 POKEC,27:GOSUB9000 


messaggio che ti informa se hai colpito (o af¬ 
fondato) qualche nave. Nella locazione corri¬ 
spondente compare una delle seguenti lette¬ 
re: X= acqua, C = corazzata, 1 = incrociatore, 
T- cacciatorpediniere, F = fregata. 

Le navi sono disposte tutte orizzontalmente. 
Le corazzate sono due, lunghe quattro spazi 
e fruttano 100 punti per ogni colpo che le cen¬ 
tra; gli incrociatori sono quattro, hanno lun¬ 
ghezza tre e fanno guadagnare 75 punti a col¬ 
po; i cacciatorpedinieri sono sei, lunghi due spa¬ 
zi e fruttano 50 punti a colpo; ci sono infine 
otto fregate che possono essere affondate con 
un colpo solo, guadagnando 50 punti. Inoltre 
l'affondamento di una corazzata, di un incro¬ 
ciatore o di un caccia frutta rispettivamente 
200, 150 e 100 punti extra. 

Alla fine del gioco il computer ti mostra lo schie¬ 
ramento, in modo che tu possa renderti conto 
della precisione nel tiro, e stampa una tabella 
con i danni arrecati alla flotta e il punteggio. 


100 POKEC,8 :PRINT"{CLR}{CYNjSCHI 
ERAMENTO FLOTTA":PRINT"{GRN} 
MUNÌZ."SH 

110 PRINT"{SU}"SPC(11)"{PUR}1111 
1111112":PRINT"{YEL}{SU} X 


IO 










{PUR} 1 2345678901 234567890" 

1 30 PRINT"{SU}"; : FORI = 1TO20:IFI = 
20THENPRINT"20";:GOTOl60 
140 IFI<1OTHENPRINT" {PUR}"MID$( 
STR$(I) ,2,2) : GOTO160 
150 PRINTMID?(STR$(I),2,2) 

160 NEXT:PRINT"{HOME}{ 3 GIU'} 

{YEL}Y{WHT}":FORI=7748T08185 
: IFPEEK ( I ) 032THEN1 65 
162 POKEI+DI , 0 
165 NEXT:A=2 
170 FORK=1TOA 
180 B=7748+INT(RND(1 )* 440) 

190 IFPEEK (B-l ) O320RPEEK (B) 032 
ORPEEK (B+l ) O320RPEEK (B+2) <> 
32THEN180 

195 IFPEEK (B+3) O320RPEEK (B-22) < 
> 320RPEEK(B-21)< >320RPEEK(B- 
20) 032THEN1 80 

200 IFPEEK (B+22) O320RPEEK (B+23) 
<>320RPEEK (B+24 ) 032THEN1 80 
220 IFA=2THENPOKEB,102:POKEB+1 ,1 
02 :POKEB+2,102:P0KEB+3,1 02 
230 IFA=4THENPOKEB,98 :POKEB+1,98 
:POKEB+2,98 

240 IFA=6THENPOKEB,104 :POKEB+1 ,1 
04 

250 IFA=8THENPOKEB,119 
260 NEXT:IFA=8THEN290 
270 IFA=2THENA=4: GOTO!70 
275 IFA=4THENA=6:GOTOl70 
280 A=8:GOTOl70 

290 POKEl98,0:GOSUB1000 :PRINT" 

{HOME}COORD. X =";:GOSUB2000 
:X=VAL(C$):IFX>20ORX<1THEN29 
0 

300 PRINT"{HOME}"SPC(13)"Y = ";:G 
OSUB2000:Y=VAL(C$ ) : :IFY>20OR 
Y<1THEN300 

310 FI=7725+Y*22+X:P=PEEK(FI):IF 
P=3ORP=6ORP=9ORP=20THENGOSUB 
8010:GOTO290 

315 IFP = 32THENGOSUB30 00 :FORTD=1T 
0500 :NEXT:GOTO2 90 
320 IFP=102THENGOSUB4000:FORTD=1 
TO500:NEXT:GOTO290 
330 IFP=98THENGOSUB5000:FORTD=lT 
0500 :NEXT:GOTO290 
340 IFP=104THENGOSUB6000 :FORTD = l 

TO500:NEXT:GOTO290 
350 IFP=119THENGOSUB7000:FORTD=l 

TO500:NEXT:GOTO2 90 
360 GOSUB3000:GOT0290 
400 GOSUBl000:PRINT"{HOME}ECCO L 
O SCHIERAMENTO" 

410 F0RI = 774 6T081 85 :1FPEEK(I)<21 
ORPEEK(I)>63THENPOKEI+DI,3 
4 20 NEXT:FORW = lTOlOOOO:NEXT:POKE 
C,27 :PRINTBA$:PRINT"{BLK}RIS 
ULTAT1:" 

460 PRINT"{GIU'}{BLU}CORAZZATE A 
FF."BS:PRINT"{GIU'}COLPI SU 
CORAZZ."BH-BS* 4 


470 PRINT"(G1U'(INCROCIATORI AFF 
."CS:PRINT"{GIU'}COLPI SU IN 
CR."CH-CS* 3 

480 PRINT"{GIU’}CACCIATORP. AFF. 
"DS:PRINT"{GIU'}COLPI SU CAC 
C."DH-DS* 2 

490 PRINT"{GIU'}FREGATE AFF."FS: 

PRINT"{GIU*}{GRN}PUNTI :"SC 
500 PRINT"{GIU'}{BLU}GIOCHI ANCO 
RA (S/N)?":POKEl98,0 
510 GETA$:IFA$<>"S"ANDA$<>"N"THE 
N510 

520 IFA$="S"THENRUN 

530 POKE900,0:SYS900 
1000 PRINT"{HOME}";:F0RI=lT022:P 
RINT" ";:NEXT:RETURN 
2000 ST%=POS(X):FORI=lT02:PRINT" 
{RVS} "; :NEXT:PRINTCHR$(13) 
"{ 4 SU}"SPC(STs):C$="":FOR 
1 = 1TO 2 

2010 GETA$: IFA$ = ""ORA$=CHR$(20)0 
RA$=CHR$(32)THEN2010 
2020 IFA$=CHR$(13)THENI = 2: GOTO20 
40 

2030 PRINTA$;:C$=C$+A$ 

2040 NEXT:PRINTCHR$(13)"{ 4 SU} 
"SPC(ST%)"{RVS}"C$: RETURN 
3000 GOSUBl000:PRINT"{HOMEjACQUA 
!":POKEFI,24:POKEFI+DI,12 :G 
OSUB8000:POKEFI+DI,1 : RETURN 

4000 GOSUBl000 :A$ = "CORAZZATA ":A 
= 0 : FORI=FI-3TOF1 + 3:IFPEEK(I 
)=3THENA=A+1 
4030 NEXT:IFA=3THEN4050 

4040 PRINT"{HOME}"A$"COLPITA" : PO 
REFI,3:POKEFI+DI,12:BH=BH+1 
:SC=SC + 100 :GOSUB8000:POKEFI 
+DI ,2 

4041 RETURN 

4050 PRINT"{HOME}"A$"AFFONDATA": 
POKEFI,3 :POKEFI + DI,12:BS=BS 
+ 1 :BH=BH+1:SC=SC+200:GOSUB8 
000 

4051 POKEFI+DI,2:RETURN 

5000 GOSUBl000 :AS = "INCROCIATORE 
":A= 0 : FORI = FI-2TOF1+2:1FPEE 
K(I)=9THENA=A+1 

5030 NEXT:IFA=2THEN5050 

5040 PRINT"{HOME}"A$"COLPITO": PO 
KEFI,9 :POKEFI+DI,12:CH=CH + 1 
:SC=SC+75:GOSUB8000 

5041 POKEFI+DI,2 : RETURN 

5050 PRINT"{HOME}"A$"AFFONDATO": 
POKEFI,9 :POKEFI+DI,12:CS=CS 
+ 1 :CH=CH+1:SC=SC+150:GOSUB8 
000 

5055 POKEFI+DI,2 : RETURN 
6000 GOSUBl000:A$="CACCIATORP. " 
:A=0:FORI=FI-1TOFI+1:IFPEEK 
(I)=20THENA=A+1 
6030 NEXT:IFA=1THEN6050 


6040 PRINT"{HOME}"A$"CO LPITO": PO 
KEPI,20 :POKEFI+DI,12:DH=DH+ 
1 :SC=SC+50:GOSUB80 00 :POKEFI 
+DI, 2 

6041 RETURN 

6050 PRINT"{HOME}"A$"AFFONDATO": 
POKEF1,20 :POKEFI+DI,12:DS=D 
S + l:DH=DH+1 :SC=SC+100:GOSUB 
8000 

6055 POKEFI+DI,2:RETURN 

7000 GOSUBl000:PRINT"{HOME)FREGA 
TA AFFONDATA":POKEFI,6:POKE 
FI+DI,12:FS=FS+1:SC=SC+50 

7010 GOSUB8000:POKEFI+DI,2 : RETUR 
N 


8000 POKEC,42 :POKEV,15:POKES,255 
:FORI = l5TO0STEP-.5:POKEV,I : 
NEXT: POKES,0 

8005 POKEC,8 :FORW=1T0 3000:NEXT 
8010 SH=SH-1 :PRINT"{HOME}{GIU'}" 
SPC(6)"{ 4 SPAZI}":PRINT" 
{HOME}{GIU 1 }"SPC(6)SH:IFSH= 
0THEN400 


8020 RETURN 

9000 PRINT"{GIU'}{ 4 SPAZlJPREMI 
UN TASTO" 

9010 GETA$:IFA$ = ""THEN901 0 
9020 RETURN 


Labirinto 

tridimensionale 


CIÒ- - pius/q. 


In questo semplice ma efficace gioco per il tuo I 
CI6, ti trovi intrappolato in un labirinto senza 
possederne la mappa. Puoi solamente cerca¬ 
re di orizzontarti camminando e tentando nel 
frattempo di organizzare mentalmente (o più 
semplicemente su un foglio di carta) il traccia¬ 
to del labirinto. L'uscita viene indicata dalla 
scritta META su uno sfondo policromo. 


10 PRINT"{CLR}ATTENDERE PREGO":C 
OLORl,1 :DX=9:DY=9:XF=5:YF=9 

20 DIMMZ%(DX,DY) 

30 RESTORE 

40 FORI=0TODY:FORJ=0TODX:READMZ% 
(J,I):NEXTJ,I 

50 DATAI 5,3,4,7,5,7,5,5,15,5,11, 
14,5,13,5,13,5,3,10,6,14,11,6 
,5,5,5,7,11,8,10 

60 DATATO, 8,10, 6 , 3, 6 , 11,12,7,9,1 
2,5,9,8,6,12,15,5,13,3,5,5,3, 
6,15,3,10,2,6,13 

70 DATA7,5,9,10,10,12,9,10,12,5, 
14,7,5,9,12,5,5,15,5,1,11,14, 
5,7,7,5,3,10,4,5 

80 DATAll ,8,4,9,8,4,9,12,7,5 

90 DEFFNL(X)=((X*2)ANDl5)+INT((X 
AND8)/8) 

100 DEFFNR(X)=INT(X/2)+(XANDl)*8 

110 X=INT(RND(0)*6+2):Y=INT(RND( 
0)*5):D%=2tINT(RND(0)*4):GRA 
PHIC2,0 :GOSUB210 


I comandi che devi dare al tuo CI6 per muo¬ 
verti sono i seguenti: 

BARRA SPAZIATRICE... per avanzare 
TASTO T . per ruotare di 90 gra¬ 

di verso sinistra 

TASTO 'P' . per ruotare di 90 gra¬ 

di verso destra. 

Buon divertimento! 


120 GETA$:IFA$<>"I"ANDA$<>"P"AND 
A$< >" "THENl20 

130 IFA$ = "I"THEND%=FNR(D%) :GOSUB 
210:GOT0120 

140 IFA$ = "P"THEND% = FNL(D %) :GOSUB 
210:GOTOl20 

150 IF(D%ANDMZ%(X,Y))=1THENX=X-1 
:IFX<0THENX=DX 

160 IF(D%ANDMZ%(X,Y) )= 2THENY = Y+l 
:IFY>DYTHENY=0 

170 IF(D%ANDMZ%(X,Y))=4THENX=X+1 
:IFX>DXTHENX=0 

180 IF(D%ANDMZ%(X,Y))=8THENY=Y-1 
:IFY<OTHENY=DY 

190 GOSUB210 : IFX=XFANDY=YFTHENGR 
APHIC0: END 

200 GOTO!20 

210 SCNCLR:XN=X:YN=Y:IF(D%ANDMZ% 
(X,Y))=0THENRETURN 

220 IF(D%ANDMZ%(X,Y))=1THENXN=X- 
1 : IFXN<0THENXN=DX 

230 IF(D%ANDMZ%(X,Y))=2THENYN=Y+ 
1 :IFYN>DYTHENYN = 0 
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240 IF(D%ANDMZ%(X,Y))=4THENXN=X+ 
1 :IFXN>DXTHENXN=0 

250 IF(D%ANDMZ%(X,Y))=8THENYN=Y- 
1 :IFYN<0THENYN=DY 

260 DRAWl,0,0TO87,57:DRAWl,0,159 
T08 7,1 30:DRAWl,319,0TO232,57 
:DRAWl,319,159T0232,130 

270 IF(MZ%(XN,YN)ANDD%)=0THEN300 

280 BOXI,157,103,162,107:DRAWl,1 
57,1 0 3TO130,85 :DRAWl,162,103 
TOl89,85 

290 DRAWl,157,107TO130,116:DRAW1 
,162,107TO189,116 : GOTO310 

300 DRAWl , 1 30,85T01 89,85:DRAWl , 1 
30,116T0189,116 

310 IF(MZ%(XN,YN)ANDFNR(D%))=0TH 
EN340 

320 DRAWl,87,57TO87,130:DRAWl ,13 
0,8 5T08 7,85:DRAWl,130,116T08 
7,116 

330 IF(MZ%(XN,YN)ANDD%)>0THENDRA 
Wl ,1 30,8 5TO130,116 


340 IF(MZ%(XN,YN)ANDFNL(D %) )= 0TH 
EN370 

350 DRAWl,232,57T0232,130:DRAW1 , 

1 89,85T0232,85:DRAWl ,189,116 
T0232,116 

360 IF(MZ%(XN,YN)ANDD%)>0THENDRA 
Wl , 1 89,85T0189,116 

370 IF(MZ%(XN,YN)ANDFNL(D%))>0TH 
EN400 

380 DRAWl,232,57TOl89,85:DRAWl,2 
32,130TO139,116 

390 IF(MZ%{XN,YN)ANDD%)=0THENDRA 
Wl,189,85T0189,116 

400 IF(MZ%(XN,YN)ANDFNR(D%))>0TH 
EN430 

410 DRAWl,87,57T0130,85:DRAW1,87 
,130TO130,116 

420 IF(MZ%(XN,YN)ANDD%)=0THENDRA 
Wl, 1 30,8 5T0130,116 

430 IFXN=XFANDYN=YFTHENCHARl,18, 
11,"META" 

440 RETURN 
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CHI INIZIA 


l_CHmESID^ APO^^^J^ 


l’esplorazione affascinante e 
avventurosa del mondo dei Personal. 

particolari tematiche 
di programmazione, di linguaggio, 
di hardware. 

tutto quel che c’è da sapere 
sull’informatica, le sue applicazioni, 
le sue prospettive. 


L’informatica di base 
in una Collana di volumi 
monografici indirizzati a: 


SONO DISPONIBILI 

• VIVERE COL PERSONAL 
COMPUTER 

• DENTRO E FUORI LA 
SCATOLA 
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IN EDICOLA 


i VOLUMI 
A SOLE LIRE 
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Super Lister 



Il programma che vi presentiamo è una 'utili¬ 
ty', cioè fa parte di quel tipo di software che 
serve a facilitare l'uso e la gestione del vostro 
computer e delle sue periferiche. In particola¬ 
re Super Lister viene incontro alle esigenze di 
chi desidera listare i propri programmi BASIC, 
con una stampante Commodore o compatibi¬ 
le, in un formato più facilmente leggibile rispetto 
a quello ottentuto digitando semplicemente 
OPEN4,4:CMD4:LIST. Super Lister vi consen¬ 
te di selezionare innanzitutto su che larghez¬ 
za (cioè su quante colonne) volete che sia stam¬ 
pato il listato, a partire da che colonna deve 
avvenire la stampa, se questa deve utilizzare 
il set di caratteri maiuscolo/grafico o quello 
maiuscolo/minuscolo ed infine se la stampa de¬ 
ve avvenire con separazione di pagina o no. 
Nel listato inoltre i numeri di linea vengono evi¬ 
denziati incolonnandoli separatamente rispet¬ 


100 POKE56, 24 :POKE53280,0 :POKE53 
281 ,0 :PK = 6144 

110 PRINT"{CLR}[<1>]"TAB(7)" 

[ <G> 1 [<J>1 [ <K> 1 {RVS } [<L>] 

[ <N>] { 2 SPAZI} SUPER LISTER 
{ 2 SPAZI} [<G>) [<J>] [<K>] 
{OFF} [<L>] [< N >1" 

120 0PEN1,8,15:DIMC$(255) 

130 DEFFNI(I)=ASC(A$+CHR$(0) ) 

140 FORI=OTOl27:C$(I)=CHR$(I): NE 
XT 

150 FORI=128TO202:READC$(I):NEXT 

1 60 FORI = 20 3T0255:C$( I):NEXT 

170 PRINT"{ 2 GIU'}(PUR){RVS}C 

{OFF}ASSETTA O {RVS}D{OFF}IS 
CO?" 

1 80 GETDVS:IFDV$<>"C"ANDDV$<>"D" 
THENl80 

190 DATAEND,FOR,NEXT,DATA,INPUT# 
,INPUT 

200 DATADIM,READ,LET,GOTO,RUN,IF 
,RESTORE 

210 DATAGOSUB,RETURN,REM,STOP,ON 
,WAIT,LOAD 

220 DATASAVE,VERIFY,DEF,POKE,PRI 
NT# 


to alle istruzioni. Chiariamo le idee con un 
esempio, che vi mostra come verrebbero stam¬ 
pate due linee di un programma selezionando 
una larghezza di 30 colonne ed il set minuscolo: 

4500 fori=Oto I :forj=0to5:read 
u(i,j):next:next 

15000 s I = 50:i=3:j=3:gosub 1200: 

i=4 :gosub 1200:j=4 :gosub 1200: 
i=3:gosubl200 

Super Lister legge il programma da listare sia 
da nastro che da disco. Nel primo caso il pro¬ 
gramma può essere lungo sino a 34 kilobytes, 
e viene caricato in RAM a partire dall'indiriz¬ 
zo $ 1800 (6144); nel secondo caso non ci so¬ 
no limiti alla lunghezza del programma, in 
quanto la stampa del listato avviene durante 
la lettura del disco, senza che sia necessario 
il caricamento in RAM. 


230 DATAPRINT,CONT,LIST,CLR,CMD, 
SYS,OPEN 

240 DATACLOSE,GET,NEW,TAB(,TO,FN 
, SPC ( 

250 DATATHEN,NOT,STEPt, 
AND,OR 

260 DATA>, = ,<,SGN,INT,ABS,USR,FR 
E, POS 

270 DATASQR,RND,LOG,EXP,COS,SIN, 
TAN,ATN 

280 DATAPEEK, LEN, STR-S , VAL , ASC , CH 
R$,LEFT$,RIGHT$,MID$ 

290 IFDV$="D"THEN320 

300 PRINT"{SU}[<3>]POSIZIONA IL 
NASTRO ALL'INIZIO DEL" 

310 PRINT"PROGRAMMA DA LISTARE E 
PREMI {RVS}RETURN{OFF}.":GO 
TO340 

320 PRINT"{SU}[<3>]INTRODUCI NEL 
DRIVE IL DISCO CONTENENTE" 

330 PRINT"IL PROGRAMMA DA LISTAR 
E E PREMI {RVS}RETURN{OFF}." 

340 GETA$:IFA$<>CHR$(13)THEN340 

350 INPUT"{GRN}{GIU 1 }NOME PROGRA 
MMA";N$ 

360 IFDV$ = "D"THEN4 30 
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370 POKE780,2 :POKE781,1:POKE78 2, 
0 :SYS654 66 

380 T$=N$:ZK=PEEK(53)+256*PEEK(5 
4)-LEN(T$):POKE78 2,ZK/256 
390 POKE781 ,ZK-PEEK(782)* 256 : POR 
E780,LEN(T$):SYS65469 
4 00 POKE780,0 :POKE78!,1:POKE782, 
24 :SYS6549 3 

410 IF(PEEK(783)AND1)OR((ST)ANDl 
91)THENPRINT"?LOAD ERROR":EN 
D 

420 GOTO450 

430 OPEN8,8,8, N$ : INPUT#1 , E, E$ , T, 
S 

440 IFE> OTHENPRINT"[<7>] {GIU'} 

{ 8 DES}"E; E$;T;S:CLOSE8:GOT 
0750 

450 IFDV$="C"THENPRINT"{CLR}" 

460 INPUT"{GIU’}LISTATO A PARTIR 
E DA COLONNA ( 1 -60)";C: IFC<1 
ORC > 60THEN4 50 

470 INPUT" {GIU’ {LARGHEZZA LISTAT 
O (20-80)";LL:IFLL<20ORLL>80 
THEN470 

480 IFC+LL>81THEN450 
490 PRINT"[GIU'{MAIUSCOLO ({RVS} 
1[OFF}) O MINUSCOLO ({RVS}2 
{OFF})?" 

500 GETA$:IFA$<>"1"ANDA$<>"2"THE 
N500 

510 S=0:IFA$="2"THENS=7 
520 OPEN4,4,S 

530 PRINT"{GIU'}SEPARAZIONE PAGI 
NE ({RVS}S{OFF}/{RVS}N{OFF}) 

54 0 GETP$: IFP$< >"S"AND P$ < >"N"THE 
N540 . 

550 PRINT"{GIU'}{YEL}ACCENDI LA 
STAMPANTE E POSIZIONA" 

560 PRINT"LA CARTA AD INIZIO PAG 
INA. " 

570 PRINT"{GIU'}PREMI {RVS}RETUR 
N{OFF} PER INIZIARE LA STAMP 
A." 

580 GETA?:IFA$<>CHR$(13)THEN580 
590 PRINT"{GIU'}PREMI {RVS}Fl 

{OFF} SE VUOI INTERROMPERE L 
A STAMPA." 

600 IFP$="N”THENPRINT#4:PRINT#4 
610 LN=2:FL=PEEK(6146)*256:IFDV$ 
= "D" THF.NGOSUB790 : FL=P 
620 GOSUB790 : L=FI.: FL=P+ (DV$ = "C" ) 

630 0$ = "":IFFL< = 0THEN740 
640 GOSUB790:NL$=MID$(STR$(P),2) 
:FV=C 

650 IFLEN(NL$)<5THENNL$=" "+NLS: 
GOTO650 

660 Q-0: FORI=L + 5TOFL:GOSUB900:A= 
FNI (0) 

670 Q$=C$(A):IFFVTHENQ$=CHR$(A) 
680 GETZ$:IFZ$="{Fi}"THENPRINT#4 
:CLOSE8:GOTO750 


690 0$=0$+Q$:IFLEN(0$)<=LL-6THEN 
710 

700 RO$=MID$(0$,LL-5):0$=LEFT$(0 
$,LL-6):GOSUB800:0$=RO$:NL$= 
"{ 5 SPAZI}" 

710 IFFNI(0)=34THENFV=NOT(FV) 

720 NEXT:GOSUB800 
730 GOTO620 

740 CLOSE8:IFP$="S"THENFORK=LNTO 
67:PRINT#4:NEXT 

750 PRINT"{GRN}ANCORA LISTATI (S 
/N) ?" 

760 GETA$:IFA$< >"S"ANDA$< >"N"THE 
N760 

770 IFA$="S"THENRUN 
780 CLOSE1 :CI.OSE4 : FORW= 1 TO500 : NE 
XT:SYS204 8 

790 GOSUB900:P=FNI(0):GOSUB900:P 
= P+FNI (0)*2 56 :RETURN 
800 IFQ=1ANDI>FL-1THENRETURN 
810 IFP$ = "N"OR(LN>3ANDLN<64)THEN 
850 

820 W=3:IFLN>63THENW=66 
830 FORK=LNTOW:FORKK=lTO80:PRINT 
#4," "; :NEXT:LN=LN+1:NEXT 
840 IFLN=67THENLN=1:GOTO800 
850 FORK = 1 TOC :PRINT# 4," "; :NEXT 
860 PRINT#4,NL$" "0$; : IFI>FL-1TH 
ENQ = 1:PRINT#4 :LN=LN + 1 : RETURN 

870 IFC + 8 + LEN(0$)=81THEN890 
880 FORK=C+8+LEN(0$)T081:PRINT#4 
, " "; :NEXT 
890 LN=LN+1: RETURN 
900 IFDV$ = "D"THENGET# 8,A$: RETURN 

910 PK = PK+1:A$=CHR$(PEEK(PK)) : RE 
TURN 
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Othello 


C64 


Conoscete ì 1 pinco dell Othello. chiomato a f 
¥ 

che Reversi? S/ gioca in due su una scacchiera 
8x8. e come nella Dama, uno tiene i bianchi 
e l'atro i neri. All'inizio vengono poste al cen¬ 
tro della scacchiera due pedine bianche e due 
nere; a turno i giocatori pongono in una casel¬ 
la libera una pedina del proprio colore, con l'ob¬ 
bligo dei 'mangiare' almeno un pezzo avver¬ 
sario: una pedina nera mangiata diviene bian¬ 
ca. e viceversa. Chi non può mangiare salta 
un turno e cede la mossa all'avversario. Come 
si fa a mangiare? Bisogna 'intrappolare' una 
pedina (o tra più pedine nemiche in fila oriz¬ 
zontale. verticale o diagonale) tra due delle pro¬ 
prie; è possibile anche mangiare in più dire¬ 
zioni contemporaneamente. Il gioco termina 
quando la scacchiera è piena o quando nes¬ 
suno dei due giocatori può muovere: vince chi 
è riuscito a conquistare, cioè a rendere del pro¬ 
prio colore, la maggioranza delle pedine sulla 
scacchiera. Questo programma realizza ap¬ 
punto il gioco deir Othello, con tre opzioni pos¬ 
sibili: uomo contro uomo, uomo contro com¬ 
puter e computer contro computer. Durante 
il gioco sullo schermo appare la scacchiera, e 
sulla destra due riquadri, uno bianco e uno ne¬ 
ro. contenenti il numero dei pedine possedute 
al momento dai giocatori; colui al quale spet¬ 


100 DATAO,0,0,Or 0,0,0,0 f 0,0,0,0 r 

15.129.240.63.195.252.63.195 
,252,63,231,252,31 

110 DATA231,248,3,255,192,0,126, 
0,0,126,0,3,255,192,31 ,231 ,2 

48.63.231.252.63.195 

120 DATA252,63,195,252,15,129,24 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 
0,0,0,0,0,0,0,3,1 28 
130 DATAO,3,192,0,3,224,0,3,240, 
1 27,255,248,63,255,252,31 ,25 
5,254,15,255,255,31 
140 DATA255,254,63,255,252,1 27,2 
55,248,0,3,240,0,3,224,0,3,1 
92,0,3,128,0,0,0,0 
150 DATAO,0,0,0,0 


ta la mossa ha il proprio riquadro indicato da 
una freccia. In una delle caselle della scacchiera 
appare un cursore a forma di quadrifoglio che. 
se la mossa spetta al giocatore 'uomo', lam¬ 
peggia alternativamente in bianco e nero. Ve¬ 
diamo come funzionano le tre opzioni. Nel pri¬ 
mo caso due persone giocano tra di loro, ed 
il computer si limita a fare da 'arbitro', verifi¬ 
cando la correttezza delle mosse ed eseguen¬ 
dole. concedendo ad ogni giocatore la facoltà 
di muovere solo dopo aver verificato che egli 
abbia almeno una mossa possibile. Le mosse 
vengono impostate posizionando (tramite il joy¬ 
stick) il cursore nella casella ove si intende porre 
la propria pedina, e premendo il pulsante. Due 
diversi segnali acustici avvisano della legalità o 
meno della mossa. Nel secondo caso potete gio¬ 
care contro il computer, con la possibilità di 
scegliere se tenere i bianchi o i neri oppure ef¬ 
fettuare un sorteggio. Infine nel terzo caso il 
computer gioca contro se stesso, e voi potete 
divertirvi ad osservare le sue tattiche. Per con¬ 
cludere, una nota: essendo il programma to¬ 
talmente in BASIC, il computer è abbastanza 
lento nel decidere le sue mosse, per cui dovete 
avere un po' di pazienza. Il tempo massimo 
di attesa è comunque inferiore a 30 secondi. 


1 60 

DATAO,1 


1 ,-l ,0,- 

1 ,-l 

,0,-1 


,1,-lrl 

,0,1 

,1 :DATAO 

,7,1 

,7,0, 

1 70 

— I 

DATA600 

,50, 

250,300, 

300, 

250,5 


0,600,50,0, 

100,100, 

100, 

1 00,0 


,50,250 

,100 

,200,200 



1 80 

DATA200 

,200 

,100,250 

,300 

,100, 


200,200 

,200 

,200,100 

,300 

,300, 


100,200 

,200 

,200,200 



1 90 

DATAI 00 

,300 

,250,100 

,200 

,200, 


200,200 

,100 

,250,50, 

0,100,100 


,100,10 

0,0, 

50,600,50 


200 

DATA250 

,300 

,300,250 

,50, 

600 

210 

DIMS%(7 

,7) , 

P%(7,7) , 

M%(30,2), 


U ( 1 ,2) , 

Zi (8 

),Z2(8) , 

FR (1 

) ,BN( 


l ) 
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220 A=53248:L=832:B=A+1 :POKE2040 
,13:POKE2041,14 

230 POKEA+40,5:POKEA+16,2 :FR(0 ) = 
179 :FR(1)=99:S=54272 :POKEA+2 
,34 :POKEA+39,1 

240 FORI=STOS+24:POKEI,0 :NEXT 
250 FORI=LTOL+l26:READX:POKEI,X: 
NEXT: FORI = 1T08: READZI (I) ,Z2( 

I) :NEXT 

260 FORI=0TOl:FORJ=0TO2:READU(I, 

J) :NEXT:NEXT 

270 FORI=0TO7:FORJ=0TO7:READP%(I 
,J):S%(I,J)=8 :NEXT:NEXT 
280 GOSUB1110:PRINT"{CLR}":Q=130 
0:C=1:GOSUB860:Q=1700:C=0:GO 
SUB860:POKEB+2,FR(1) 

290 PRINT"{HOME}[<1>]{RVS}[<A>] 

{ 3 *}[<R>] { 3 *}[<R>] 

{ 3 *} (<R>) { 3 *}I<R>] 

{ 3 *} [<R>] { 3 *} [<R>] 

{ 3 *} [<R>] { 3 * } l <S>]» 

300 FORI=1T07:GOSUB890:GOSUB900: 
NEXT:GOSUB890 

310 PRINT"{RVS}(<Z>J { 3 M[<E>] 

{ 3 *}[<E>}{ 3 *}[<E>] 

{ 3 *}[<E>J{ 3 *} [<E>] 

{ 3 *}[<E>]{ 3 *}[<E>] 

{ 3 M[<X>]{yelT{home}" 

320 BN(0)=2:BN(1)=2:S%(3,3)=0:S% 
(4,4)=0:S%(3,4)=1:S%(4,3)=1 
330 S1 = 55337:I=3:J = 3:GOSUB910:1 = 
4:GOSUB910 :J=4:GOSUB910 : 1 = 3: 
GOSUB910 

340 XI=32:Y1=55:P0KEA,X1:POKEB,Y 
1 :POKEA+21,3:C=0:FF=1:XX = 0:Y 
Y=0:CQ=0 

350 IFBN(0)+BN(1)=640RBN(0)=0ORB 
N (1)=OORCQ = 2THEN1060 
360 C=C+FF:FF=-FF:D=0:GG=1:K=1 
370 IFCM=CORCM=2THENNM=l:GOTO650 

380 V»1=C:W2 = 8:IFBN(0) +BN (1 ) >4 2TH 
F.NWl =8 : W2=C 

390 FORI=0TO7:FORJ = 0TO7: IFS%( I, J 
) OWl THEN41 0 

400 GOSUB950:IFFL=1THENI=7 : J = 7 
410 NEXT:NEXT:IFFL=0THENCQ=CQ+1: 
GOTO350 

420 FL= 0:POKEB + 2,FR(C) 

430 GETC$: JS=255-PEEK(56321):IFC 
$="{F3}"THENRUN 
440 POKEI98,0:IFJS=0THEN500 
450 FORR=1TO70:NEXT:K = 6:1FJS = 1 TH 
ENYY=YY-1 :IFYY< 0THENYY=7 
460 IFJS=2tHENYY=YY+1 :IFYY>7THEN 
YY=0 

470 IFJ 9= 4THENXX=XX-1:IFXX<0THEN 
XX = 7 

480 IFJS=8THENXX=XX+1:IFXX>7THEN 
XX = 0 

490 IFJS=16THENPOKEA+ 39,C+FF:GOT 
0520 


500 GOSUBl620:K=K+1:IFK>6THENK=1 
:POKEA+39,D:D=D+GG:GG=-GG 
510 GOTO430 

520 FL=0: IFS% (XX, YY) O8THENG0SUB 
1890 :GOTO4 30 

530 GETC$:IFC$="{F3}"THENRUN 
540 POKEI98,0:FORE=1T08:CT=1:Cl= 
XX+Zl(E):C2=YY+Z2(E) 

550 IFCl<0ORCl>70RC2< OORC2> 7THEN 
610 

560 IFS% (Cl ,C2) OC+FFTHEN61 0 
570 CT=CT+1:Cl=C1+Z1(E):C2=C2+Z2 
(E):IFCl<OORCl>7ORC2<0ORC2>7 
THEN610 

580 IFS%(Cl,C2) = 8THEN61 0 
590 IFS%(Cl,C2)=CTHENFL=1:GOSUBl 
860:GOSUB1030:GOTO 610 
600 GOTO570 

610 NEXT:IFFL=OTHENGOSUBl 890:GOT 
0430 

620 FL=0:CQ=0:BN(C)=BN(C)+1:GOSU 
B920:IFCM>-1THENFORI=1TO30:M 
% ( 1,0)= 0 :N EXT 

630 IFCM>-1THENFORI=1TO30:M%(I,0 
)=0 :NEXT 
640 GOTO350 

650 Ri=INT(RND(0)*2):R2=INT(RNDJ 

0)* 2): 1FRND(0)>.5THEN670 
660 FORJ=U(Ri,0)TOU(Ri,1)STEPU(R 

1.2) :FORI=(J (R2,0) TOU (R2,1 ) ST 
EPU(R2,2):GOTO680 

670 FORI=U(Ri,0)TOU(Ri,1)STEPU(R 

1.2) :FORJ=U(R2,0)TOU(R2,1)ST 
EPU(R2,2) 

680 IFS% (I ,J) 08THEN800 
690 GOSUBl 350:IFM%(NM,0)=0THEN80 
0 

700 IFNM=1THENPOKEB+2,FR(C) 

710 M%(NM,1)=1:M%(NM,2)=J:IFBN(0 
)+BN(1)>60THEN790 
720 M%(NM,0)=M%(NM,0)+PS(I,J) 

730 IFP% (I ,J) >50ANDP% (I, J) O250T 
HEN790 

740 Il=0:Jl=0:IFI>4THENIl=7 
750 1FJ>4THENJ1=7 
760 IFS%(Il,J1)=8THENGOSUBl440 :G 
OTO790 

770 TA=400:IFP%(I,J)=250THENTA=1 
50 

780 M%(NM,0)=M%(NM,0)+TA:IFS%(Il 
,Jl)=CTHENM%(NM,0)=M%(NM,0)+ 
100 

790 NM=NM+1 

800 NEXT:NEXT:NM=NM-1 :IFNM=0THEN 
CQ=CQ+1:GOTO350 

810 MM=M%(1,0):XX=M%(1,1):YY=M%( 

1.2) : It'NM=lTHEN850 

820 FORI=2TONM:IFM%(1,0)<=MMTHEN 
840 

830 MM=M%(1,0):XX=M%(1,1) :YY=M%( 

1,2) 

840 NEXT 
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850 GOSUB1 620 :POKEA+39,C+FF:FORR 
= 1TO1 000:NEXT:GOTO 520 
860 POKEQ,85:POKEQ+1,67:POKEQ+2, 
67 :POKEQ+3; 73 :POKEQ+40,66 : PO 
KEQ+4 3,66 

8 70 POKEQ+80,74 :POKEQ+81,67:POKE 
Q+82,67 :POKEQ+83,75 
880 FORI=Q+STOQ+S+80STEP40:FORJ= 
ITOI + 3 : PO K EJ,C:NEXT:NEXT:RET 
URN 

890 FORJ=lT02:PRINT"{RVS}^ 

{ 3 SPAZI 3 SPAZI } -_ 

{ 3 SPAZI }-_{ 3 SPAZI }_- 
{ 3 SPAZI }j-{ 3 SPAZI}-^ 

{ 3 SPAZI }-_{ 3 SPAZI }-" :NEXT 
: RETURN 

900 PRINT"{RVS}[<Q>]{ 3 *}+ 

{ 3 M + { 3 M+{ 3 M + 

{ 3 M_+{ 3 M+{ 3 M + 

{ 3 M[<W>]": RETURN 
910 P=Sl+1*4+J*l20 : FORII=PTOP+40 
STEP40:FORJJ = IITOI1 + 2 :POKEJJ 
, S % ( I, .7 ) : MEXT: NEXT 
920 Tl$=STR$(BN(1)):T0$=STR$(BN( 
0 ) ) 

930 PRINT"{HOME}{ 7 GIU'}"TAB(37 

)RIGHT$(Tl$,2):PRINT" 

{ 9 GIU'}"TAB(37)RIGHT$(T0$ , 
2) 

940 RETURN 

950 FORE=1T08:C1=I+Zl(E):C2=J+Z2 
(E) 

960 IFC1<OORC1>70UC2<OORC2>7THEN 
1020 

970 IFS%(CI,C2)OC+FFTHEN1020 
980 C1=C1+Z1(E):C2=C2+Z2(E):IFC1 
< 0ORC1> 70RC2< OORC2>7THENl020 

990 IFS%(C1 r C2)=WlTHENl020 
1000 IFS%(CI,C2)=W2THENFL=1:E=8: 

GOTO!020 
1010 GOTO980 
1020 NEXT:RETURN 

1030 I=XX:J=YY:FORZX=1TOCT:Si(I, 
J)=C:GOSUB910:I=I+Z1(E):J=J 
+Z2(E) 

1 040 IFZX<CTTHENBN(C)=BN(C)+1 :BN 
(C+FF)= BN(C+FF)-1 
1050 NEXT:RETURN 

1 060 GOSUB1 9 20:C = 1:POKEA+21,2 :PR 
INT"{HOME}{ 12 GIU’}{RVS} 
{CYN}"TAB(9)"{ 2 SPAZI}PREM 
I{ 2 SPAZI}<F7>{ 2 SPAZI}" 

1070 IFBN{0)>BN(1)THENC=0 
1080 IFBN(0)=BN(1)THENC=0:FR(0)= 
1 39 

1 0 90 POKEB + 2,FR(C) :FORI = 0TOl5:FO 
RT= 1 TOl00 :NEXT:GETC$:IFC$=" 
{F7}"THENRUN 

1100 POKEA+4 0,1 :NEXT:GOTO!090 


1110 POKEA + 21,0 :GOSUB16 50 :PRINT" 
{CLR}{YEL}{OFF}{ 3 GIU'}HAI 
3 POSSIBILITÀ’ DI GIOCO: 
{GIU' }" 

1120 PRINT"{RVS}1{OFF} - UOMO CO 
NTRO UOMO":PRINT"{RVS}2 
{OFF} - UOMO CONTRO COMPUTE 
R" 

1130 PRINT"{RVS}3{OFF} - COMPUTE 
R CONTRO COMPUTER":PRINT" 
{GIU'jQUALE SCEGLI?" 

1140 GETH$:IFH$<"1"ORH$>"3"THEN1 

1 40 

1 1 50 ONVAL {Hi?) GOTO! 1 60,1 1 80,1 1 70 

1160 CM=-1:GOT01340 
1170 CM = 2 : GOTO 134 0 
1180 PRINT"{ 2 GIU'}{CYNjVUOI I 
BIANCHI, I NERI O IL SORTEG 
GIO" 

1190 PRINT"{CIU'}({RVS}B{OFF}- 
{RVS}N{OFF}-{RVS}S{OFF})?" 

1 200 GETC$: IFC $ = ""THEN1200 
1210 IFC$="B"THENCM=0:GOT01340 
1 220 IFC$="N"THKNCM=1:GOT01340 
1230 IFC$<>"S"THEN1200 
1 240 PRINT" {GIU' } [<6>] ORA AWERR 

A' IL SORTEGGIO:" 

1250 PRINT"SE PREMENDO UN TASTO 
QUALSIASI IL" 

1260 PRINT"QUADRATINO QUI SOTTO 
DIVERRÀ' BIANCO," 

1270 PRINT"TU AVRAI I BIANCHI E 
IL COMPUTER I" 

1280 PRINT"NERI; SE INVECE IL QU 
ADRATINO DIVERRÀ’" 

1290 PRINT"NERO SARA' IL CONTRAR 
IO." 

1300 POKEl963,160:C=0:FF=1 
1310 GETC$ : IFC$<>'"‘THENl 330 
1 320 POKE56235 ,C:C=C + FF:FF=-FF:G 
OTOl310 

1330 CM=C:FORR=lT05000:NEXT 
1340 RETURN 

1 350 FORE=1T08:CT=0:C1=I + Z1 (E):C 
2=J+Z2(E) 

1360 IFCl<OORC1>7ORC2<0ORC2>7THE 
Ni 430 

1 370 IFS% (Cl ,C2) OC+FFTHENl 430 
1380 CT=CT+1:Cl=C1+Z1(E):C2=C2+Z 

2 (E) 

1 39,0 IFCl COORCl >7ORC2<0ORC2>7THE 
Ni 430 

1400 IFS%(C1,C2)=8THEN1430 
1410 IFS%(Cl,C2)=CTHENM%(NM,0)=M 
%(NM,0)+CT:GOTOl430 
1420 GOTOl380 
1430 NEXT:RETURN 

1 440 LL = 0:IA = I:JA=J:DE= 75:IFP%(I 
,J)< 2 50THEN1470 

1450 IA=I1+SGN(3-11):JA=Jl+SGN(3 
-.11 ) :DE= 275 
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1 4 60 1F(S%(IA,JA) OC+FF) OR (S% (1 + 
2* ( I A- X ) , J + 2* (JA-J) ) OC) THE 
NRETURN 

1 470 SX=IA-11 :SY=JA-Jl:C1=IA+SX: 
C2=JA+SY 

1480 IFS%(CI,C2)=8THENl530 
1490 IFS%(Cl,C2)=C+FFTHENFG=1 
1 500 Cl=Cl+SX:C2=C2+SY:IFCl<OORC 
1>7ORC2<0ORC2>7THENl530 
1510 IFS%(Cl,C2)=CTHENFG=0 
1520 GOTO!480 

1 530 IFFG=1THENFG=0:M%(NM,0)=M%( 
NM,0)-DE:RETURN 
1 54 0 IFP%(I,J) O50THENRETURN 
1 550 IA=Il+SGN(3-Il) : J A=J1+ SGN ( 3 
-Jl) 

1 560 SX = IA-I:SY-"JA-J:C1=IA+SX:C2 
=J A+SY 

1 570 XFS% (Cl ,C2) OC+FFTHENRETURN 

1580 Cl=C1+SX:C2=C2+SY:IFCl<0ORC 
1>7ORC2<0ORC2> 7THENRETURN 
1590 IFS'é (Cl ,C2) =8THENRETURN 
1600 IFS%(Cl,C2)=CANDLL=0THENLL= 
1 :GOTOl470 
1610 GOTOl580 

1 620 POKEB,Yl+24*YY:AA = X1+32*XX: 

IFXX=7THENAA=0:POKEA+16,3 
1630 IFXX<7THENPOKEA+l6,2 
1640 POKEA,AA:RETURN 
1 650 POKE53280,0 :POKE53281 ,0 
1660 PRINT"{CLK}{ 2 GIU 1 }{BLU} 
{RVS}£{ 7 SPAZI}{ 5 DES) 

E{ 2 SPAZI){ 11 DES}E 
T 2 SPAZI}£{ 2 SPAZlT" 

1670 PRINT"{YElTìRVS}[< 7 + >] 
{BLU} { 5 DES}{YEL} 

[< 2 +>]{BLU} { 11 DES} 
{YELj[< 2 f>]{BLU} {YEL} 

[< 2 +>]{BLU} " 

1680 PRINT"{YEL}{RVS}[< 7 +>] 
{BLU} £{ 2 SPAZI}{ 2 DES} 
{YEL}{< 2 +>]{BLU} 

{ 11 DES}{YEL}[< 2 +>]{BLU} 
{YEL}[< 2 + > ] {BLU} " 

1690 PRINT"{YEL}{RVS}[< 2 +>] 
{BLU} { 2 DES}{YEL} 

[< 2 +>]{BLU} {YEL} 

[< 2 +>]{BLU} { 2 DES}{YEL} 
[< 2 +>]{BLU} { 11 DES} 
{YEL}[< 2 +>]{BLU} {YEL} 

[< 2 +>]{BLU} " 

1700 PRINT"{YEL}{RVS}[< 2 +>] 
{BLU} { 2 DES){YEL} 

{< 2 +>]{BLU} {YEL} 

[< 2 +>]{BLU}{ 3 SPAZI} 
{YEL}[< 2 +>]{BLU} 

{ 5 SPAZI}£{ 6 SPAZI}(YEL} 
[< 2 +>]{BLU} {YEL} 

[< 2 +>]{BLU} £{ 6 SPAZI}"; 


1710 PRINT"{YEL}[< 2 +>]{BLU} 

{ 2 DES}{YEL}[< 2 +>]{BLU} 
{YEL}[< 4 + >]{BLU} {YEL} 

[< 6 +>]{BLU} {YEL} 

[< 6 +>]{BLU} {YEL} 

[< 2 +>1{BLU} {YEL} 

[< 2 +>]{BLU} {YEL} 

[< 6 +>!{BLU} "; 

1720 PRINT"{YEL}[< 2 +>]{BLU} 

{ 2 DES}{YEL}l< 2 +>]{BLU} 
{YEL}[< 4 +>]{BLU}{OFF}£ 
{RVS}{YEL}[< 6 +>]{BLU} 
{YEL} K 6 h >] {BLU} {YEL} 

{< 2 + >] {BLU} {YEL} 
l< 2 + >] {BLU} {YEL} 

[< 6 +>]{BLU} "; 

1730 PRINT"{YEL}[< 2 +>]{BLU} 

{ 2 DES}{YEL}[< 2 +>]{BLU} 
{YEL}[< 2 +>]{BLU} 

{ 2 DES}{YEL}[< 2 +>|{BLU} 
{DES}{YEL} [< 2 + >] {BLU} 
{YEL}[< 2 +>]{BLU} 

{ 2 SPAZI}{YEL}[< 2 +>] 
{BLU} {YEL}[< 2 +>]{BLU} 
{YEL}[< 2 +>]{BLU} {YEL} 

[< 2 +>]{BLU} {DES}{YEL} 

l< 2 +>]{BLU} "; 

1740 PRINT"{YEL}[< 2 +>]{BLU} 

{ 2 DES}{YEL}{< 2 +>]{BLU} 
{YEL}{< 2 +>]{BLU} 

{ 2 DES}[YEL}[< 2 +>]{BLU} 
{DES}{YEL}[< 2 +>]{BLU} 
{YEL}[< 6 +>){BLU} {YEL} 

[< 2 +>]{BLU} {YEL} 

(< 2 +>]{BLU} {YEL} 

[< 2 +>]{BLU} {DES}{YEL} 

[< 2 O] {BLU} 

1750 PRINT"{YEL}[< 2 +>]{BLU} 

{ 2 DES}{YEL}(< 2 +>]{BLU} 
{YEL}[< 2 +>]{BLU} 

{ 2 DES}{YEL}[< 2 +>]{BLU} 
{DES}{YEL}[< 2 +>]{BLU} 

{YEL}[< 6 +>]{BLU}{OFF}£ 
{RVS}{YEL}[< 2 +>]{BLU} 
{YEL}{< 2 t>]{BLU} {YEL} 

[< 2 4- > ] { BLU } {DES} {YEL} 

[< 2 +>]{BLU} "; 

1760 PRINT"{YEL}[< 2 +>}{BLU} 

{ 2 DES}{YEL}[< 2 +>]{BLU} 
{YEL}{< 2 +>]{BLU} 

{ 2 DES}{YEL}[< 2 +>]{BLU} 
{DES}{YEL}[< 2 +>]{BLU} 
{YEL}[< 2 +>]{BLU} 

{ 4 DES}{YEL}(< 2 +>){BLU} 
{YEL}[< 2 +>]{BLU} {YEL} 

{< 2 +>]{BLU} {DES}{YEL} 

[< 2 +>]{BLU} "; 

1770 PRINT"{YEL}[< 2 +>]{BLU} 

{ 3 SPAZI}{YEL}[< 2 +>) 
{BLU} {YEL}{< 2 +>]{BLU} 

{ 3 SPAZI}{YEL}[< 2 +>] 
{BLU} {DES}{YEL}[< 2 +>] 
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{BLU} {YBL}[< 2 +>] {BLU J 
{ 5 SPAZl}{YEL}{< 2 + >] 
{BLU} {YEL}[< 2 + > ] {BLU} 
{YEL}i< 2 +>]{BLU} 

{ 2 SPAZI}{YEL}[< 2 +>] 
{BLU} 

1780 PRINT"{YEL}[< 7 +>1{BLU} 

{YEL}[< 4 + > ] {BLU} {YEL} 

[< 2 +>] {BLU} {DESHYEL} 

[< 2 +>}{BLU} {YEL} 

[< 6 +>]{BLU} {YEL} 

{< 2 +>]{BLU} {YEL} 

[< 2 +>)[BLU} {YEL} 

[< b + >){BLU} "; 

1790 PRINT"{YEL)(< 7 +>]{BLU} 
{OFF } E [ RVS } { YEJ .} [ < 4 +>] 

{ BLU JlOFF } jì { RVS } {YEL} 

[< 2 + ;• ] {BLU}{OFF}C{RVS} 

{ DES } { YEI.} [ < 2 +>]TbLU} 

{OFF} L {RVS}{YEL}[< 6 +>) 

{BLU JlOFF}£{RVS}{YEL} 

{< 2 +>]{BLU}{OFF}£{RVS} 

{YEL}(< 2 +>){BLU}TOFF}E 
{RVS}{YEL}[< 6 +> J {BLU} 
{OFF}£^ - . . 

1800 PRINTTAB(7)"{ 3 GIU’HCYN} 

{RVS}{ 3 SPAZI{JOYSTICK IN 
PORTA 1{ 3 SPAZI}" 

1810 PRINTTAB(7)"{RVS} PER INIZI 
ARE PREMI <Fl> " 

1820 PRINTTAB(7)"{RVS} PER SMETT 
ERE PREMI <F3> ":POKEl98,0 

1 830 GETCS : IFC$<>" {Fi }"ANDC$<>" 
{F3}"THENl830 


1 840 IFC$="{F3}"THENSYS2048 
1 850 POKE53280,6 :POKE53281 , 6 :RET 
URN 

1 860 POKES+24,15:POKES+5,9 :POKES 
+ 6,15 

1 870 POKES + 4,33 : POKES + 1,25:POKES 
, 0 : FORT= 1 TO 4 0 0 : NEXT 
1 880 POKES + 4,32 : POKES + 4,0 : RETURN 

1 890 POKES + 24,15 :POKES + 5,45 :POKE 
S+6,165:POKES+4,33:POKES+1, 
6 

1 900 POKES,5:FORT=lTO400:NEXT:PO 
KES+4,32 

1910 POKES+4,0:RETURN 
1 920 FORI=STOS+24:POKEI,0 :NEXT 
1 930 POKES + 3,8 :POKES + 5,41 :POKE5+ 
6,89:POKES+14,117 :POKES+18, 
16:POKES+24,143 
1940 READFR,DR 

1950 IFFR=OTHENPOKES+4,64:POKES+ 
18,16:POKES+4,0 :POKES+18,0: 
POKES + 24,0 : RETURN 
1960 POKES+4,65:FORT=lTODR*2:FQ= 
FR+PEEK(S+27)/2 

1 970 HF = INT (FQ/256) :LF=FQAND255: 

POKES,LF:POKES+1,HF:NEXT 
1980 POKES+4,64:GOTOl940 
1 990 DATA481 7,2,51 0 3,2,54 07,2,8 5 
83,4,5407,2,8583,4,5407,2,8 
583,12,8583,2,9634,2 
2000 DATAI 0207,2,10814,2,8583,2, 
9634,2,10814,4,8583,2,9634, 
4,8583,12,0,0 


Codice Morse 



Se siete un radio amatore o vi piacerebbe di¬ 
ventarlo questo programma fa proprio al vo¬ 
stro caso! Dopo aver dato il RUN vi trovate da¬ 
vanti a tre opzioni: Pratica, Quiz, Testo. 
Pratica: scegliete la velocità e quindi premete 
un qualsiasi tasto corrispondente ad un numero 
ed a una lettera, sentirete immediatamente il 
corrispondente in codice Morse. Per uscire dal 
modo, modificare la velocità, abbandonare il 


5 POKE53280,0:POKE53281 , 6:PRINT" 
{CLR}{WHT}{ 2 GIU 1 }{ 8 DESjCOR 


programma premere rispettivamente F5, F3, 
FI. Quiz: dopo avere scelto la velocità, ascol¬ 
terete un suono in codice Morse e dovrete 
schiacciare il tasto corrispondente al suono 
ascoltato. Verrà visualizzata la risposta giusta 
o sbagliata. Testo: potrete scrivere un testo al 
massimo di 120 caratteri ed ascoltarlo in se¬ 
guito in codice Morse: il numero di caratteri 
inseriti verrà visualizzato sullo schermo. 


SO CODICE MORSE" 

6 PRINT"{GIU'}{ 9 DES}{GIU 1 } 
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{RVS}P{OFF{RATICA , (RVS}Q 
{OFFjUIZ":POKE54 29 6,1 5:SS=5427 

O 

7 PRINT"tGIU'}{ 12 DES}0 

{ 2 SPAZI}{RVS}T{OFF}ESTO?" 

8 GETKS:IFK$=""THEN8 

9 IFKC="P"THEN15 

12 IFK?="Q"THEN52 

13 IFK$="T"THENCLR:RESTORE:DIMS$ 
(120):K$="T":G0T0285 

14 K$ = "P" 

15 PRINT"{CLRj{GIU'} { 2 DES}PRAT 
ICA{ 6 SPAZI}":PRINT" 

{ 2 GIU’}{DES}{RVS}FI{OFF}: S 
TOP" 

16 PRINT"{GIU 1 }{DES}{RVS}F5{OFF} 
: RITORNO AL MENU":GOSUB60:GOT 
084 

52 PRINT" {CLRHGIU' }{ 2 DES}QUIZ 
{ 5 SPAZI } » 

54 PRINT"{ 2 GIU'}{DES}{GIU'}SCR 
IVI UNA LETTERA O UN" 

55 PRINT"{DES}{GIU 1 }NUMERO DOPO 
CIASCUNA":PRINT"{GIU 1 }{DES}SE 
RIE DI SUONI{ 2 SPAZI}" 

56 PRINT"{ 3 GIU 1 }{ 2 DES}PREMI 
UN TASTO" 

57 POKEl98,0:WAIT 198,1 :K = 210 :Y = 
0:Z=0:POKEl98,0 :PRINT"{CLR}": 
GOSUB60:GOTO 8 5 

60 PRINT"{HOME}"SPC(255)SPC(145) 
"VELOCITA'?{GIU'}{ 6 SIN}A)28 
LETTERE/MIN." 

61 PRINT"{ 4 DES} B )34{GIU'} 

{ 4 SIN}C)40{GIU'}{ 4 SIN}D)4 
8" 

62 PRINT"{ 4 DES}E)66{GTU'} 

{ 4 SIN}F)80{GIU'}{ 4 SIN}G)1 
04" 

65 GETCS: IFCS = "A"THENH = 600:POKEl 
467,90:RETURN 

67 IFCS = "B"THENH=500:POKEl507,90 
: RETURN 

70 IFC$="C"THENH=400 : POKEl 547,90 
: RETURN 

72 IFC$="D"THENH=300:POKEl587,90 
: RETURN 

75 IFC$="E"THENH=200:POKEl627,90 
: RETURN 

77 IFC$ = "F"THENH*150:POKEl 667,90 
: RETURN 

80 IFC$ = "G"THENH = 100 :POKEl 707,90 
: RETURN 

81 IFC$="{FI}"THENEND 

82 IFC$ = "{F5}"THEN 5 

83 GOTO65 

8 4 POKEl98,0 : I=H/3:X = INT(RND(1)* 
43)+48 :A$=CHR$(X) 

8 5 IFX = 58ORX = 59ORX = 60ORX = 61ORX = 6 
20RX=64THEN84 


86 IFKS="P"THENGETAi? 

{HOME}";A$:TFA$=" 
90 IFAS="A"THENA=I:B 
90 

92 IFA$="B"THENA=H:B 
= 0 : GOTO190 

93 IFA$ = "C"THENA=H:B 
= 0 : GOTO19 0 

95 IFAS="D"THENA=H:B 
OTOl90 

96 1FA$="E"THENA=I:B 

97 IFA$="F"THENA=I:B 
= 0 : GOTO 190 

100 IFA$="G"THENA=H: 1 
GOTO 190 

102 IFA$="H"THENA=I:] 
E = 0: GOTO!90 

105 IFA$="I"THENA=I:1 
1 90 

106 IFA$ = "J"THENA = I: I 
E = 0: GOTO 190 

107 IFA$="K"THENA=H:I 
GOTO 190 

110 IFA$ = "I,"THENA=I : B 
E~0:GOTOl90 
112 IFAS="N"THENA=H:B 
1 90 

115 IFA$="M"THENA=H : B 
1 90 

116 IFA$="0"THENA=H: 
GOTO190 

117 IFA$="P"THENA=I: 
E=0:GOTOl90 

120 I FA$ = "Q"TIIENA=H : B 
E=0:GOTOl90 
123 IFA$="R"THENA=I:B 
GOTOl90 

125 IFA$="S"THENA=I:B 
GOTOl90 

127 IFA$="T"THENA=H:B 
130 IFA$ = "U"TI1ENA=I :B 
GOTO19 0 

132 IFA$ = "V"THENA= I : B 
E=0:GOTOl90 

135 IFA$ = "X"THENA=H:B 
E=0:GOTOl90 

136 IFA$="W"THENA=I: 
GOTOl90 

137 IFA$ = "Y"TIIENA=H: 
E=0:GOTOl90 

140 IFA$="Z"THENA=H: 

E=0:GOTOl90 
142 IFA$="0"THENA=H:B 
E=H:F=0:GOTOl90 
145 IFA$="1"THENA=I: 

E=H:F=0:GOTOl90 
147 IFA$="2"THENA=I:B 
E=H:F=0 : GOTO190 
150 IFA$="3"THENA=I:B 
E=H:F=0:GOTOl90 


: PRINT" 

'THEN86 
=H:C=0:GOTOl 

= 1 :C = I:D = I : E 

= 1:C=H:D = I: E 

■I :C = I :D = 0 :G 

! 0:GOTOl90 
! I :C=ii : D = I : E 

i=H :C = I : D=0 : 
= 1:C = I:D = I : 
=1:C=0:GOTO 
=H:C=H:D=H: 
=1:C=H:D=0: 

=H:C=I:D=I: 
= I :C = 0 : GOTO 
=H:C=0:GOTO 
=H:C=H:D=0: 
= H:C=H:D = I : 
=H:C-I:D=H: 
=H:C=I:D=0: 
=1:C=I:D=0: 

=0:GOTOl90 
=1:C=H:D=0: 

=1:C=I:D=H: 

=1:C=I:D=H: 

= H:C=H:D = 0 : 
=1:C=H:D=H: 
=H:C=I:D=I: 
=H:C=H:D=H: 
=H:C=H:D=H: 
=1:C=H:D=H: 
=1:C=I:D=H: 
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152 IFA$="4"THENA=I:B=I:C=I:D=I: 
E=H:F=0: GOTO!90 

1 55 IFA$ = "5"THENA=I:B=I:C=I:D=I: 
E=I:F=0:GOTOl90 

157 IFA$="6"THENA=H:B=I:C=I:D=I: 

E=100 :F = 0:GOTOl90 
160 IFA$="7"THENA=H:B=H:C=I:D=I: 
E=I:F = 0: GOTO!90 

163 IFA$="8"THENA=H:B=H:C=H:D=I: 
E=I:F=0:GOTOl90 

165 IFA$="9"THENA=H:B=H:C=H:D=H: 
E=I:F=0:GOTOl90 

170 IFA$="."THENA=X:B=H:C=I:D=H: 
E=I:F=H:G=0:GOTOl90 

176 IFK$="T"THENIFA$=" "THENFORT 
= 1TOI* 2 :NEXT 

177 IFA$ = " {Fi } "THENIFK$ = " P"THEtlE 
ND 

178 IFA$ = "{F3}"THENIFK$="P"THENl 
5 

179 XFA$ = "{F5}"THENIFK$="P"THENC 
LR: GOTO5 

180 IFK$="Q"THEN84 

182 IFK$="T"TH£NRETURN 
185 GOTO86 

190 FORS=1T07:IFS=1THENGG=A 

191 X FS=2THENGG=B 

192 IFS= 3THENGG=C 

193 IFS=4THENGG=D 

194 IFS= 5THENGG=E 

195 IFS=6THENGG=F 

196 IFS=7THENGG=G 

197 IFGG = 0THENIFK$ = " T"THENRETURN 

1 98 IFGG = 0THENIFK $ = "P"T'HEM86 

199 IFGG=0THENFORT=lT0325:NEXT:I 
FK$="Q"THEN255 

200 POKE54278,1 00 :POKE54273,34 :P 
OKE54272,75:POKE54276,33 

201 FORT=lTOGG:NEXT 

202 POKE54278,0 :POKE54 276,0 

203 NEXT 

210 IFK$="Q"THEN84 

211 GOTO 8 6 


255 GETB$: IFB$ = ""THEN255 

260 IFB$=A$THENPRINT"{HOME} 

{GIU ' } {DF.SjBENF. ! ! ( " A$ " ) 

{ 4 SPAZI}":Y=Y+1:Z=2+l 

265 IFB$OA$THENPRINT"{HOME} 

{GIU'}{DES}MALE ! ! ("A$")":Z = 
Z + l 

270 PRINT"{GIU'}"Y"GIUSTE SU 

{ 3 SPAZI}"Z:IFZ=10THENPRINT 
"{ 2 GIU'}"Y*10"i CORRETTE": 
GOTO 280 

275 GOTO84 

280 PRINT"{GIU'}{DES}ANCORA?" 

281 GETD$:IFD$=""THEN281 

28 2 1 FD$-= "S"THENY = 0 : Z= 0 : GOTO5 

283 1FO$< >"S"THENEND 

284 G0T0281 

285 GOSUB60:PRINT"{CLR} 

{ 11 DES}TESTO{ 4 SPAZI}":PR 
INT"{HOME}{GIU'}T{GIU'}" 

287 PRINT"{GIU’} SCRIVI IL TESTO 

E PREMI RETURN.":PRINT" (12 
0 CARATTERI MAX)" 

288 PRINT"{GIU'}DOPO LA DECIFRAZ 
IONE DEL" 

289 PRINT" CODICE, PREMI {RVS}F7 
{OFF} PER":PRINT" LA VERIFIC 
A." ;CHP.$ (1 3) 

290 I=H/3 :FORY=lTOI20 

302 GETS5(Y):IFS$(Y)=""THEN302 

304 U=Y:PRINT"{HOME}"U:IFASC(S$( 
Y))=13THENY=120:GOTO308 

305 NEXT 

306 GETH$:IFH$=""THEN306 

307 IFH$OCHR$ (1 3) THEN306 

308 FORY = l TOU : A$ = i>$ ( Y) :FORT=lTOI 
:NEXT:GOSUB90:NEXT 

309 GETF$:IFF$=""THEN309 

310 IFF$ = "{F7}"THEN31 2 

311 GOTO 309 

31 2 PRINTSPC(255)SPC(145):FORY = l 
TOU:A$=S$(Y):PRINTA$;:FORT=l 
TOI:NEXT:GOSUB90 

320 NEXT:POKÉl98,0:GOTO280 


Catalogatore di nastri 


C64 


Se usate il registratore per salvare i vostri pro¬ 
grammi, vi sarete resi conto di come le casset¬ 
te si moltiplichino velocemente , e divenga pre¬ 
sto molto difficile ricordare su quale nastro si 


trovi un ceno programma. Questo catalogato¬ 
re vi aiuterà ad organizzare razionalmente la 
vostra nastroteca, compilando l'elenco dei pro¬ 
grammi presenti su ogni cassetta, completo del- 


24 








la loro posizione sul nastro (data dalla lettura 
del contatore sul registratore) e della loro oc¬ 
cupazione di memoria (cioè la loro lunghezza 
espressa in bytes). Premettiamo però che, se 
volete che il Catalogatore sia veramente effi¬ 
cace, i vostri programmi devono essere registrati 
sulla cassetta uno di seguito all'altro, senza 
spazi vuoti. Ciò si ottiene facilmente con la se¬ 
guente procedura, che la maggior parte di voi 
conoscerà di certo: ogni volta che si deve sal¬ 
vare un nuovo programma, si posiziona cor¬ 
rettamente il nastro effettuando la verifica del¬ 
l'ultimo programma registrato sulla cassetta. 
Inizialmente il Catalogatore vi chiede se desi¬ 
derate la stampa dell'elenco dei programmi; 
infatti se possedete una stampante Commo¬ 
dore o compatibile, l'elenco può venire auto¬ 
maticamente stampato su carta oltre che vi¬ 
sualizzato sullo schermo. In caso positivo vi vie¬ 
ne ricordato di accendere la stampante, dopo 
di che dovrete impostare il nome della casset¬ 
ta, il lato (I oppure 2) e la data della catalo¬ 
gazione; infine il programma vi chiede di riav¬ 
volgere il nastro e di azzerare il contatore. A 


10 FORI=707TO725:READA:POKEI,A:C 
K=CK+A:NEXT 

1 1 IFCK< > 238 4THENPRINT"(WHT)ERRO 
RE NELLE DATA": END 
12 Z$ = " 00":W$="{ 3 SPAZI}":BC$= 
CHR$(14) :SYS6551 7 :IFPEEK(781) 
=40THENTY=64:GOTOl4 
1 3 POKE36879,8 :B$ = "{CLR}":Ml =368 
76 :POKEMl+2,15:GOTO20 
1 4 SO = 54 272 :FORT=SOTOSO + 24:POKET 
, 0 :NEXT 

15 POKE53280,0 :POKE53281 ,0 :POKES 
0+24,15 :POKESO+5,17 :B$ = "{CLR} 
{ 8 DES}" 

16 POKESO+6,2 50:POKESO,100:POKES 
0+1,160 

20 DIMLO(50),N$(50),BY(50) : I = 1:J 
$=CHR$(16):CR$=CHR$(13) 

25 M$="ELENCO PROGRAMMI"+CR$ 

30 LC$=CHR$(15):PRINTB$"{CYN} 

{RVS}CATALOGATORE DI NASTRI 
{OFF}" 

40 PRINT"{WHT}{HOME}{ 3 GIU’JSTA 
MPA (S/N)?" 

45 GETH$:IFH$=""THEN45 
50 IFH$ = "N"THEN 55 
52 PRINT"{RVS}{GIU’}{YEL}ACCENDI 
LA STAMPANTE":PRINT"{RVS}E P 
REMI IL TASTO F7." 


questo punto inizia l'esplorazione della casset¬ 
ta, che avviene verificando tramite una routi¬ 
ne in linguaggio macchina i programmi che ven¬ 
gono via via incontrati, ed ogni volta vi verrà 
chiesta la lettura del contatore sul registrato- 
re; in questa fase viene compilato (ed eventual¬ 
mente stampato) l'elenco. 

Se sapete già dove finisce l'ultimo programma, 
impostate il carattere “*" al posto del nume¬ 
ro del contatore quando il registratore si fer¬ 
merà in quel punto. Altrimenti, quando sarete 
giunti in una zona del nastro in cui siete sicuri 
che non vi siano più programmi, premete 
RUN/STOP ed apparirà un messaggio di 
BREAK; digitate quindi GOT0700 e premete 
RETURN. In entrambi i casi, comunque, sul vi¬ 
deo compare la domanda ELENCO (S/N/C)? 
Premendo S viene mostrato sul video l'elenco 
che, se non possedete una stampante, dovre¬ 
te trascrivere su un foglio di carta; premendo 
C entra in funzione la stampante, fornendovi 
una ulteriore copia dell'elenco; premendo N in¬ 
fine il programma termina. 


53 GETH8:IFHS<>"{F7}"THEN53 

54 H=1:GOSUB900:OPEN4,4 

55 S$="UNO": INPUT"{GIU 1 }{WHT}NOM 
E CASSETTA";CN$:PRINT"{GIU'}L 
ATO (1/2)?" 

56 GETHS:IFH$<"1"ORH$>"2"THEN56 

60 S=VAL(H$) : INPUT"{GIU’}DATA";D 

A? :IFS = 2THENS$ = "DUE" 

65 CN$=CN$+"/"+S$ 

70 PRINT" {RVS} {GIU ' }RIAWOLGI IL 
NASTRO, " 

75 PRINT"{RVS}AZZERA IL CONTATOR 
E PRINT"{RVS}E PREMI IL TAS 
TO F7.{YEL}" 

80 GETA$:IFA$<>"{F7}"THEN80 

100 GOSUB900:CLOSEl:IFST=-128THE 
N700 

110 SYS707 :IFST=-128THEN700 

120 Bl=PEEK(829)+256*PEEK(830):B 
2=PEEK(831)+256*PEEK(832):BY 
(I)=B2-B1 

1 30 IFI = 1 THENM$=M$+CN$+CR$+DA$:P 
RINT"{CLR}{GIU'}"M$ 

140 IFI=1ANDH=1THENPRINT#4,BC$M$ 
LC$CR$ 

200 L$ = "" :GOSUB900:GOSUB900:INPU 
T"{PUR}{RVS}CONTATORE{OFF}"; 
L$:IFL$=""THEN200 

210 L=VAL(L$) 
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220 IFI=1THENLO(2)=L:LO(l)=0:GOT 
0300 

230 LO(I+1)=L 

300 FORX=OTOl5:N$(I)=N$(I)+CHR$( 
PEEK(833+X)):NEXT 
350 Q$=STR$(LO(I)):LO$=LEFT$(Z$ , 

5- LEN(Q$))+MID$(Q$,2) 

352 Y$=STR$(BY(I)):BY$=LEFT$(W$, 

6- LEN(Y$))+MID$(Y$,2) 

355 PRINT"{RED}{RVS}"LO$" {DES} 

{WHT}" N$(I)“{ 5 DES}{GRN}"BY 
$" BYTES":GOSUB900 
360 IFH = 1THENGOSUB920 
370 IFL$=" *"THENCLOSEl :GOTO700 
400 1=1+1:G0T0100 

700 PRINT"{WHT}STATO I/O ="ST:GO 
SUB9uO:CLOSEl:LM=I:IFN$(LM)= 
""THENLM=I-1 

00 0 IFH = 1THENPRINT#4:CLOSE4:H = 0 

810 PRINT"{WHT}ELENCO (S/N/C)?" 

81 1 GETD$:IFD$=""THEN812 
815 IFD$="N"THENEND 

820 IFD$="C"THENCLOSE4: OPEN4,4 :P 
RINT « 4,BC $M$ LO$CR $ :H = 1 


830 PRINT"{CLR}{GRN}{RVS}"CN$:FO 
RI=1TOLM 

832 Q$=STR$(LO(I)):LO$=LEFT$(Z$, 

5- LEN(Q$))+MID$(Q$,2) 

833 Y$=STR$(BY(I)):BY$=LEFT$(W$, 

6- LEN(Y$))+MID$(Y$,2) 

835 PRINT"{YEL}{RVS}"LO$" {DES} 

{WHT}"N$(I)"{DES}{GRN}"BY$" 
BYTES" 

840 IFD?="C"THENGOSUB92 0 

845 IFI/10<>INT(1/10)THEN860 

846 PRINT"{WHT}PREMI UN TASTO" 

847 GETHS:IFH$ = ""THEN847 

848 PRINT"{CLR}" 

860 NEXT:GOTO800 
900 IFTY=64THEN910 

905 POKEMl,232:FORS=lTO50:NEXT:P 
OKEMl,0 : RETURN 

910 POKESO+4,17:POKESO+4,16:RETU 
RN 

920 PRINT#4,LO$J$+"06" N$( I)J$ + "2 
4"BY$" BYTES":RETURN 
1 000 DATAI 6 9,1 ,1 70,160,0,32,186, 
255,169,0,32,189,255,169,1, 

32,213,255,96 


Stellar fighter 



Vi trovate in missione speciale agli estremi del - 
la galassia WX 123, con il compito di pattu¬ 
gliare quella zona di universo e ripulirla dalle 
navi dei Klingon eventualmente presenti. Que¬ 
sti non tarderanno a farsi vivi più agguerriyi che 
mai, e dovrete fare ricorso a tutte le vostre mi¬ 
gliori doti di comandante per uscire incolume 
e vittorioso dagli scontri a base di missili ad 
energia galattica. Nella parte destra dello 


0 POKE55,255 :POKE56,47 :PRINT" 
{CLR}":POKE53 2 81 ,0 :POKE53 280,0 
:V=53248:CO=54272 

1 SM = 0:FORJ = lTO30: I=RND(1 )*1 000 + 
552 96 :POKEI,1 :POKEI-CO,46 :NEXT 

2 POKEV + 21 ,31 :POKE20 4 0,1 92:POKE2 
041,193:POKE2042,194:POKE2043, 
195 :POKE2044,1 96 

3 POKEV+39,8 :POKEV + 40,3 :POKEV+41 
,7 :POKEV+4 2,10:POKEV+43,5 

4 FORI =0TO31 8:REAr3Q:POKEl 2288 + 1 , 
Q:NEXT:POKE54296,1:POKE54278,2 
40 :POKE54 276,1 29 


schermo viene visualizzata l'energia rimanen¬ 
te di cui disponete, e potete usare i seganti ta¬ 
sti di comando: 

S per sparare 
A sinistra 
W destra 
D destra 
X in basso 


5 P=120:YP=200:POKEV,P:POKEV+1 ,Y 
P:X=50+INT(RND(1)*180):Y=0:POK 
EV+2,X :POKEV+3,Y 

7 PE=PEEK(V+30):F=0:POKE54272,10 
8 : PO KE54273,223 

8 PRINT"{HOME}{ 3 GIU’}{ 6 SIN} 

{WHT}PUNTI :":POKEV+4,200 

9 PRINT"{HOME}{ 9 GIU'}{ 3 SIN} 
{WHT}{RVS}L{GIU 1 }{SIN}L{GIU 1 } 

{sin}l{giu'}{sin}l{giu 1 }{sin} 
l {giu'}{sin}l{giu'}{sin}l 
Tgiu*}{sin}lTgiu'}{sin}lTgiu'} 
{sin}l{giu'T{SIN}L{GIU'T{SIN} 
L{GIU'}{sin}l{giu*}{SIN}L" 
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10 PE=PEEK(197):F=F+.01:POKEV+39 
,8:IFHH< > OTHENPOKEV+ 39,12 

11 PRINT"{HOME}{ 4 GIU’} 

{ 5 SIN}{GRN} " ; S 

12 POKE5561 3 + INT(F)*40,4 

13 IFPE=10ANDP>50THENP=P-5 :F=F+. 
01 

14 IFPE=18ANDP<239THENP=P+5:F=F+ 
.01 

15 IFPE=9ANDYP>175THENYP=YP-5:F= 
F+.01 

16 IFPE=23ANDYP< 2 30THENYP=YP+5:F 
=F+.01 

17 IFPE=13ANDSH=0THENGOSUB900 

1 8 IF PE = 6 0ANDHH=OTHENHH = 1 :F = F+1 

19 TFSH=0THBN24 

20 FORI = 1T02:SY=SY-SU :POKEV+5,SY 

21 IFPEEK(V+30)=6THENGOSUB200 

22 IFSY<60THENSY=0:SH=0:SX=150:P 
OKEV+5,0 

23 NEXT 

24 IFHH< >0THENHH=HH+1 :IFHH = 10THE 
NHH = 0 

25 POKEV,P:POKEV+1,YP:IFF>15THEN 
100 

26 IFRND(1)<.1THENRN=INT(RND(1)* 
3-1):IFRN=OANDRND(1)<.1THEN26 

27 IFX > 239THENRN = -1 

28 X = X+RN* 4 :IFX< 50THENRN=1 

29 Y=Y+4:IFY>235THENY=0:X=50+INT 

(RND(1)*180):SM=SM+1 

30 POKEV+2,X:POKEV+3, Y 

31 IFEY = OANDRND(1)<.1ANDY< 2 20THE 
NEY=Y+20:EX=X.POKEV+6,X :GOSUB 
950 

32 IFEY=OTHENGOTOl0 

35 FORI = lT02:EY=EY+6:POKEV+7 f EY: 
POKEV+6,EX 

36 IFRND(1 )<.2THENEX=EX+((EX>P)- 
(EX<P))*5 

37 IFEX< 35THENEX=35 

38 IFEX>238THENEX=238 

39 IFEY>235THENEY=0:EX=0:POKEV+7 
,EY:POKEV+6,EX:GOTOl0 

40 IFPEEK(V+30)=9ANDHH=0THEN300 

42 NEXT:IFPEEK(V+30)<>12THEN10 

43 POKE54273,0 :POKE54 272,0 :POKE5 
4 2 9 6,5 : FORI = 3 OTO1STEP-1 :POKE 5 
4273,1:NEXT 

44 POKE54 296,1 : :POKE54 273,223:PO 
KE54272,108 

46 POKEV+5,0:POKEV+7,0:POKEV+8,E 
X :POKEV+9,EY 

47 FORI = 1 TOT 00 :NEXT 

48 EX=50:EY=0:SY=0:SX=0:SH=0:POK 
EV+8,0:POKEV+9,0 

49 GOTOIO 

100 GOSUB800 

110 PRINT"{CLR}{WHT}HAI FINITO L 
' ENERGIA!" 


120 PRINT"{ 3 GIU'}{GRN}COMPLIME 
NTI , OTTIMO TEMPO DI SOPRAW 
IVENZA!" 

150 PRINT"{HOME}{ 16 GIU'}{PUR}- 


_ Il 

160 PRINT"{ 2 GIU'}VUOI GIOCARE 
ANCORA? (Y/N)" 

170 GETA$:IFA$="Y"THENRUN 

180 IFA$< >"N"THEN17 0 

190 PRINT"{CYN}{ 2 GIU'}CIAO!" 

195 END 

200 POKE54272,0 :POKE54 296,10 :FOR 

I = 50TO1STEP-1.5 :POKE54273,1 : 
NEXT 

201 POKE54296,1 :POKE54273,223 : PO 
KE54272,108 

202 POKEV+2,0:POKEV+3,0:POKEV+8, 
X:POKEV+9,Y 

205 S=S+10 :IFY=SYTHENS=S+40 

206 FORZ=1TOl00 :NEXT:POKEV+ 8,0 :P 
OKEV+9,0 

210 SH=0:SY=0:SX=0:Y=0:RETURN 
300 GOSUB800 

310 PRINT"{CLR}COLPITO DA UN MIS 
SILE NEMICO!!" 

315 PRINT"{PUR}{ 2 GIU'{PECCATO! 

II 

320 PRINT"{ 2 GIU'}{RED}PUNTI; 
S 

325 PRINT"UNITA' DI ENERGIA USAT 
E"; INT(F) 

330 PRINT"{GRN}ASTRONAVI NEMICHE 
INTATTE"; SM 

340 PRINT"{ 2 GIU’}{BLU}NON GRAN 
CHE’ ! " 

350 GOTO150 

800 FORI=lTO7:POKEV+I,0:NEXT 

801 POKE54273,0:POKE54272,0:POKE 
54276,0 

805 POKE54296,1 5:POKE54276,1 29 
810 POKEV+8,P:POKEV+9,YP 
820 FORI=50TOlSTEP-l:POKE54273,I 
:NEXT:POKE54273,0:POKE54272, 
0:POKE54296,1 
830 POKEV+8,0:POKEV+9,0 
840 RETURN 

900 POKE53280,2:SH=6:SX=P:SY=YP: 
POKEV+ 4,SX:F=F+.05:POKE53 280 
,0 

910 POKE54273,0:POKE54272,0:POKE 
54 296,1 0 : FORI = OTO150STEP3:PO 
KE54273,1 :NEXT 
920 POKE54273,0 :POKE54 2 96,1 
930 RETURN 

950 POKE54273,0:POKE54 272,0 :POKE 
54276,0:POKE54276,33 
960 POKE54273,50:FORZX=lTO50:NEX 
T:POKE54276,129:POKE54273,23 
3:POKE54272,108 
970 RETURN 
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Dalla grande edicola 

Jackson 

Tutto sul personal 

computer 


PC MAGAZINE 


Personal-O/PC/Bit/Personal Software 

sono pubblicazioni firmate: 

GRUPPO EDITORIALE JACKSON 

via Rosellini, 12-20124 Milano 


PERSONAL O 


In questo numero: 

L'architetto 
di fronte 
all'informatica 

Unix per M 24 

Il cancelliere nel cassetto 

L'archivio tascabile, 
quando l'agenda 
non basta 


BIT 

In questo numero: 

Speciale 
Macintosh 

HP-110 contro 
D.G.-One 

Memotech 

MTX-512 

Softest: Super 
Window 

Test: Sìdekick 


In questo numero: 

Banche dati: è nostrana 
la più grande d'Europa 

Il redditometro con VisiCalc 

At: più potenza 
sulla scrivania 

Autocad: il tecnigrafo 
elettronico 


PERSONAL SOFTWARE 


In questo numero: 

Catalogo nastri per Sharp 
L'ultimo perde con C64 
TTmusic per Spectrum 
Totocalcio con Apple 




90 00 DATAO,0,0,0,8,0,0,28,0,0,? 8 
,0,0,62,0,0,1 27,0,0,1 27,0,0 
,127,0,0,127,0,2 

9010 DATA127,32,2,28,32,7,28,112 
,2,62,32,6,255,176,7,235,24 
0,7,235,240,15,255 
9020 DATA248,15,62,120,28,28,60, 
24,0,12,0,0,0,99 

9030 DATAO,130,0,64,130,4,112,21 
4,28,120,254,60,124,124,124 
,62,56,248,31,255 
9040 DATA240,15,255,224,7,255,19 
2,1,255,0,0,254,0,12,108,96 
,6,108,192,7,255,192 
9050 DATA3,255,128,1,255,0,0,254 
,0,0,56,0,0,16,0,0,16,0,0,1 
6,0,99 

90 60 DATAO,0,0,0,0,0,0,0,0,0,0,0 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 2,0 


9070 

DATA32, 

7,0 

,M2,1 

5,128 

,2 

4 

8,3 


1,193,2 

52, 

26,193 

,172, 

1 8 

r 

65, 


36,2,0, 

32, 

0,0,0 





9080 

DATAO,0 

,0, 

2,0,32 

,99 




9090 

DATAO,0 

,0, 

0,0,0, 

0,0,0 

,0 

r 

1,2 


15,0,0, 

254 

,0,0,2 

54,0, 

0, 

1 

24, 


0,0,16, 

0,0 






9100 

DATAI 6, 

0,0 

,16,0, 

0,124 

,0 

/ 

0,5 


o 

o 

V£> 

6,0 

,0,16, 

0,0,0 

,0 

/ 

0,0 


,0,0,0, 

0,0 

,0,0,0 

,0,0 




91 1 0 

DATAO,0 

,0, 

0,0,0, 

99 




9120 

DATA3,1 

2,0 

,0,3,0 

,192, 

1 9 

2 

,19 


5,3,204 

,19 

2,12,3 

,12,0 

,1 

2 

,48 


,0,51,3 

,48 

,51,0 





9130 

DATA3,1 

2,0 

,0,3,0 

,192, 

1 9 

2 

,19 


5,3,204 

,192,12,3 

,12,0 

,1 

2 

,48 


,0,51,3 

,48 

,51 ,0 





9140 

DATA3,1 

2,0 

,0,3,0 

,192, 

1 9 

2 

,19 


5,3,204 

,19 

5,3,204,1 95 

,3 

/ 

204 


Zapf 



Questo giochino semplice ma appassionante 
trova le sue origini nella preistoria stessa dei 
personal computer: è infatti la versione per C64 
di un gioco trovato sulla prima ‘ ‘rivisto su cas¬ 
setta" per il Pet 2001 (dal quale derivano di¬ 
rettamente il VIC 20 ed il C64). A quei tempi, 
le riviste su cassetta non erano composte da 
programmi copiati... 

Il gioco è una variante del noto "serpente", 
con grafica semplice ma molto ben realizzata 
e divertente da giocare. Si tratta di catturare 
i quadratini (bersagli) che appaiono sul video 


1 REM ZAP COPYRIGHT 1978 TOM MAR 
AZITA 

2 REM CURSOR #2 AUGUST 1978 

3 REM P.O. BOX 550, GOLETA, CA 9 
301 7 

4 REM VER 1.1 

10 POKE53 2 80,9 :POKE53281 ,0:PRIHT 
"{CLR}" 

11 PRINT"{WHT } " 

94 POKE 53272,21 
96 DIMWM(255) 


e restano solo per certo tempo. All'inizio è fa¬ 
cile, ma la coda si allunga ad ogni quadratino 
mangiato: un giocatore abile può trovarsi con 
un serpente che occupa quasi tutto lo scher¬ 
mo. Più che i ri fessi, occorrono strategia e at¬ 
tenzione. A proposito, il nostro record è di ol¬ 
tre 10000 punti. Provateci! 

Per gli aspiranti programmatori, è tutto in BA¬ 
SIC. Funziona con POKE nella memoria video 
(1024-2047) perché le PRINT sarebbero trop¬ 
po lente. 


99 EL = 18 :HP=EL-1 

100 GOSUB61000 
105 DIMA(255) 

110 GOSUB60000 

115 DE=53265 

116 POKEDE,PEEK(DEJAND239 
118 POKE53281 ,1 

120 PRINT"{CLR}" 

125 POKE53281 ,0 

127 POKEDE,PEEK(DE)ORI 6 

130 PO = 2022 
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140 S=1 

160 FORX = l06STO1 064 + 38 :POKEX,100 
: NEXT 

170 FORX=1064+40T01024+(40*23)ST 
EP40:POKEX,103:NEXT 
180 FORX = 1025+(40*24)TO2022:POKE 
X,99:NEXT 

190 FORX=2023-40TO2023-(40*22)ST 
EP-40:POKEX,101 :NEXT 
195 GOSUB900 

200 FORI=1TOÌO:GETA$:NEXT 
211 GOTO410 
220 A$="0":GOTO240 
230 GETA$ 

240 IFA$="K"THENDIR=-1 
250 IFA$="O"THENDIR=-40 
260 IFA$=":"THENDIR=1 
270 IFA$="."THENDIR=40 
280 IFA$="I"THENDIR=-41 
290 IFA$="P"THENDIR=-39 
300 IFA$="/"THENDIR=41 

310 IFA$=","THENDIR=39 

311 IFA$ = "L"THEN770 

320 PO=P0+DIR 

321 IFPO=2023ORPO=19840RP0=10640 
RPO=1103THEN590 :RKMCORNKRS 

324 IFPEEK(PO)«102THENGOSUB550 

325 WM(HP)=PO:HP=HP+l 

326 IFHP>ELTHENHP=0 

340 IFPEEK(PO)>98ANDPEEK(PO)<102 
THEN590 

345 IFPEEK(PO)>102ANDPEEK(PO)<10 
4THEN590 

350 IFPEEK(PO)=81 THEN590 
360 POKEPO,81 

370 R=INT(RND(1)* 15)+1 :IFS>5THEN 
ZZ = 20 

375 P1=INT(RND( 1 ) * Z Z ) +1:ZZ=50 

380 IFR=3THEN410 
390 IFPl=3THEN480 
400 GOSUB730:GOTO230 
410 REM 

420 IFS>6THEN400 

430 Q=INT(RND(1)*1000)+(1024+160 

) 

435 IFQ>1982THEN430 

440 IFPEEK (Q) O32THEN430 

450 S=S+1:H=H+1:TC=TC+1 

460 POKEQ,102 

470 A(H)=Q:IFCV=1THEN400 

475 CV=1:GOTO220 

480 REM REMOVE TARGETS 

490 P=INT(RND(1)*H)+1 

500 REM 

510 IFPEEK(A(P))<>102THEN540 
520 POKEA(P),32 
530 S=S-1 

540 A(P)=A(H):H=H-1 : GOTO400 
550 REMHIT TARGET 
560 SC=SC+10 

565 S = S-1 

566 EL=EL+2 


567 IFEL>250THENEL=250 
570 GOSUB900 
580 RETURN 

590 CR=CR+1:REMCRASH 
595 GOSUB900 
600 IFCS>LTHENL=CS 
610 CS=0 

615 EL=18 :HP=1 7 

616 TP=0 
620 CV=0 

635 FORT=1T08 :FORX=1 TOT 00 :NEXT 

:POKEPO,209:FORXl=1TO!00:NEX 
T:POKEPO,81 :NEXT 

636 FORX=0TO255:WM(X)=0:NEXT:HP= 

17: TP=0 

638 IF CR=6THEN650 
640 GOT0115 

650 PRINT"{CLR}( 6 GIU'}" 

660 PRINT'VHAI FATTO "SC" PUNTI" 
662 PRINT 

666 PRINT 

667 PRINT”IL PUNTEGGIO MASSIMO E 
RA :"TC*10 

670 PRINT 

675 PRINT"HAI PRESO IL ";INT((SC 
/(TC*10))*100)DEI BERSAG 
LI" 

677 POKE 525,0 

680 INPUT "{ 2 GIU'}VUOI GIOCARE 
ANCORA";PL$ 

685 IF LEFT$ (PLf? ,1 ) ="S" THEN RUN 

700 PRINT"{ 3 GIU 1 }CIAO!": END 
730 LOC=WM(TP):TP=TP+1:REMPICK T 
AIL 

740 IFTP>ELTHENTP=0 
750 POKELOC,32 

760 RETURN 

770 FORE=1TOl71:GETA§:IFA$<>""TH 
EN240 

780 NEXTE: SC=SC-10 :IFSC<0THENS 
C = 0 

790 GOSUB900 
800 GOTO770 

900 PRINT"{HOME}{ 3 DES}PUNTI="S 
C;TAB(18); "NO. DI CRASHES=" 
CR 

910 RETURN 

60000 INPUT"{ 2 GIU'}{YEL}VUOI L 
E ISTRUZIONI";B$ 

60010 IFLEFT$(B$,1)="S"THEN60030 
60020 RETURN 

60030 PRINT"{CLR}{ 2 GIU'jDEVI C 
ONTROLLARE UNO STRANO MISS 
ILE!" 

60040 PRINT"{GIU'}QUANDO I BERSA 
GLI '[<+>]' APPAIONO SULLO 

H 

60050 PRINT"SCHERMO , DEVI PRENDE 
RLI • PER MUOVERE" 

60060 PRINT"IL MISSILE USA LA CR 
OCE: " 
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60070 PRINT"{GIU'}{ 13 SPAZI}I 
{ 4 SPAZI}0{ 4 SPAZI}P" 
60080 PRINT "{ 18 SPAZI}t" 

60090 PRINT"{GIU'}{ 13 SPAZI}K < 
- L -> 

601 00 PRINT"{GIU 1 }{ 18 SPAZlJl" 
60102 PRINT "{ 13 SPAZI}, 

{ 4 SPAZI}.{ 4 SPAZI}/" 
60105 PRINT"{GIU'}E LE SUE DIAGO 
NALI.{ 2 SPAZI}CON 'L' SI 
PUÒ ' " 

60110 PRINT"FERMARE IL GIOCO." 
60112 PRINT"OGNI BERSAGLIO VALE 
10 PUNTI, MA IL" 

60125 PRINT"MISSILE SI ALLUNGA.. 

fi 

• 

60130 PRINT"{GIU'}IL GIOCO FINIS 
CE DOPO 6 CRASHES!" 

60300 PRINT"{ 2 GIU'}PREMI ’SPAZ 
IO' PER INIZIARE IL GIOCO" 

r 

60310 GET ZZ$:IF ZZ$="" THEN GOT 
O 60310 
60320 RETURN 

61 000 PRINT" { 3 GIU'H 8 SPAZI) 
ZZZZZZ{ 3 SPAZI}AAA 
{ 3 SPAZI}PPPPPP 
{ 2 SPAZI}Q" 


61010 PRINT"{ 13 SPAZI}Z 

{ 2 SPAZI}A{ 3 SPAZI}A 
{ 2 SPAZI}P{ 5 SPAZI}P Q" 
61020 PRINT"{ 12 SPAZI}Z 

{ 2 SPAZI}A{ 5 SPAZI}A P 
{ 5 SPAZI}P Q" 

61030 PRINT"{ 10 SPAZI}ZZ 

{ 3 SPAZI}AAAAAAA PPPPPP 
{ 2 SPAZI}Q" 

61040 PRINT"{ 9 SPAZI}Z 

{ 5 SPAZI}A{ 5 SPAZI}A P 
{ 7 SPAZI}Q" 

61050 PRINT"{ 8 SPAZI}Z 

{ 6 SPAZI}A{ 5 SPAZI}A P" 
61060 PRINT"{ 8 SPAZI}ZZZZZZ A 
{ 5 SPAZI}A P{ 7 SPAZI}Q" 
61070 PRINT"{ 3 GIU'}{YEL} 

{ 8 SPAZI}CURSOR #2 
{ 3 SPAZIlAGOSTO 1978" 
61080 PRINT"{GIU'}{ 5 SPAZI}COPY 
RIGHT 1978 - TOM MARAZITA" 


61090 PRINT"{ 3 GIU'}{PUR} 

{ 2 SPAZI}ADATTAMENTO SU C 
-64 DI CHIARA TOVENA" 

61200 RETURN 


Per ricevere gli arretrati di 




compilare il seguente tagliando: 


J.soft 


Compilare ed inviare in busta chiusa a: 
via Rosellini 12 - 20142 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome 


Cognome 

Indirizzo 


CAP 


Città 


Prov. 


Desidero ricevere i seguenti numeri arretrati di 




W //J 


Anno 


a L. 2.000 cad. per un totale di L. a mezzo 


□ assegno allegato 


□ contanti allegati 
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A 

in via Mascheroni 14 

la prima software 


lineria italiana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla Libreria JACKSON 

La prima software - libreria italiana. 

A Milano, in via Mascheroni 14. 

Tel. 02-437385 

Vieni a trovarci: ti aspettiamo. 




